profile
Опубликовано 5 лет назад по предмету Информатика от Nekit1997179

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

  1. Ответ
    Ответ дан Launc
    var i,min: integer; a:array[1..20] of integer;   begin for i:=1 to 20 do  begin   write('Введи число №',i,': ');   readln(a[i]);  end; min:=a[1]; for i:=2 to 20 do   if a[i]<min then     min:=a[i];   Writeln('Минимальное: ',min) end.
Самые новые вопросы