Регистрация
е7гроошишгини
20.05.2022 04:38
Информатика
Есть ответ 👍

Умоляю . Нужно сделать или хотя бы рассказать мне как делать 3,5,6 задание это в Lazarus ​

149
242
Посмотреть ответы 1

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

Анастасия20041981
Анастасия20041981
4,7(98 оценок)
Var a,i,max: integer; begin max: =-30000;   for i: =1 to 5 do begin       readln(a);       if a> max then max: =a;   end;   writeln('максимальное  - ', max); end.

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