Регистрация
Vlipli779
14.09.2022 21:50
Информатика
Есть ответ 👍

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

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

250
498
Посмотреть ответы 2

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

rebecca332
rebecca332
4,4(96 оценок)

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.

nastyateam1
nastyateam1
4,5(75 оценок)

вроде как 4 бит должно быть

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