Нужно написать программу на PascalABC.

Вводится n чисел, найти максимальное двузначное среди них.

Question

Информатика

Игорь

2 октября, 16:21

Нужно написать программу на PascalABC.

Вводится n чисел, найти максимальное двузначное среди них.

+3

Ответы (1)

Знаете ответ на вопрос?

Степура · Answer 1

Var

n, max, i, a : longint;

begin

readln (n) ; {количество чисел}

max:=0; {чтобы вывести 0 если нет двухзначных}

for i:=1 to n do

begin

readln (a) ; {хранить массив не надо т. к. он нигде не требуется}

if (a>9) and (amax)

then max:=a;

end;

if max>0

then writeln (max)

else writeln ('нет двухзначных чисел')

end.

Нужно написать программу на PascalABC.Вводится n чисел, найти максимальное двузначное среди них.

Нужно написать программу на PascalABC.

Вводится n чисел, найти максимальное двузначное среди них.