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

сергей1105 сергей1105    3   30.04.2020 19:56    0

Ответы
МаТеМаТиК200411 МаТеМаТиК200411  04.09.2020 19:27

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика