На вход 20 чисел.найдите наименьшее из них

leedercools leedercools    3   06.10.2019 05:00    0

Ответы
Marismak Marismak  09.10.2020 23:01

var i,a,m:integer;

begin

write ('Введите число: ');

readln (a);

m:=a;

for i:=1 to 19 do

begin

write ('Введите число: ');

readln (a);

if a<m then m:=a

end;

writeln ('Наименьшее: ',m)

end.

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