Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
Var c,k1,k2,i,min,max: integer;
begin
min:=m[0]; max:=m[0];
for i:=0 to N do begin // тут вот N - размер массива, m - массив
if (m[i]>max) then begin
max:=m[i];
k1:=i
end;
if (m[i]
Блок схема задана, на листе. Проверяем на истинность, если x≥3 , у примет значение
, если это условие ложное, то x<3 и у равно
tgx.
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
