Регистрация
chelbaeva77
23.05.2023 19:13
Информатика
Есть ответ 👍

с тестом по информатике

136
246
Посмотреть ответы 1

Ответы на вопрос:

Катя709015
Катя709015
4,6(39 оценок)

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 6 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.

Популярно: Информатика