Question

ИНФОРМАТИКА 9КЛАСС ПАСКАЛЬ СРОЧНО НУЖНО!

Answer 1

Ответ:

Объяснение:

var n,i,a,max: integer;

begin

readln(n);

max := -1;

for i := 1 to n do

begin

readln(a);

if (a mod 10 = 3) and (a > max)

then max := a;

end;

writeln(max);

end.