
Kautkyub
6 год назад
Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале
ОТВЕТЫ

Мариенгоф
Aug 1, 2019
Var i, min, num: integer;
begin
readln(min);
for i := 1 to 19 do
begin
readln(num);
if (num lt; min) then
min := num;
end;
writeln(num);
end.
begin
readln(min);
for i := 1 to 19 do
begin
readln(num);
if (num lt; min) then
min := num;
end;
writeln(num);
end.
63
Смежные вопросы: