Найти наибольшее из четырех, введенных с клавиатуры - вопрос №1354291 от илья1947 31.12.2020 18:44

Question

Информатика: Найти наибольшее из четырех, введенных с клавиатуры чисел(паскаль)​

илья1947 · Answer

program raf105;

var a, max1,i: integer;

begin

writeln('Вводите числа по очереди');

max1:= -10000;

for i:=1 to 4 do

begin

readln(a);

if a>max1

then max1:= a;

end;

writeln('Наибольшее: ',max1);

end.

Язык PascalABC

Найти наибольшее из четырех, введенных с клавиатуры чисел(паскаль)​