Предмет: Информатика, автор: ЛинVel

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

Ответы

Автор ответа: FernandoM
0
var i, min, num: integer;
begin
readln(min);
for i := 1 to 19 do
  begin
    readln(num);
    if (num < min) then
      min := num;
  end;
writeln(num);
end.
Похожие вопросы
Предмет: Математика, автор: gunesbozkurt1113
Предмет: Алгебра, автор: alekscom23463
Предмет: Математика, автор: savelievser201