Регистрация
Zyherpopentruher007
12.09.2021 18:39
Информатика
Есть ответ 👍

Знатоки по информатике ,

212
389
Посмотреть ответы 2

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

MrRainClouD
MrRainClouD
4,6(57 оценок)

var

n:word;

a,max,i:integer;

begin

repeat

write ('N = ');readln(n);

until (n>0) and (n<=1000);

write ('A = ');readln(a);

if a mod 5 = 0 then max:=a; 

while i<>n-1 do begin

write ('A = ');readln(a);

if (a>max) and (a mod 5 = 0) then max:=a; 

i:=i+1;

end;

writeln ('Max: ',max);

readln;

end.

Valeriiiss
Valeriiiss
4,4(17 оценок)

6                                          

Объяснение:

                                           

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