Организовать цикл "Для" для 7 итераций, ввести 7 чисел и найти max число из

введенных чисел. Вывести мах число.
В PascalABC

kir1kir1 kir1kir1    2   24.04.2020 00:16    0

Ответы
znasta745 znasta745  13.10.2020 19:29

var a,i,max: integer;

begin

max:=0;

for i:=1 to 7 do  

 begin

 readln(a);

 if (a>max) then max:=a;

 end;

writeln(max);

end.

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