Question

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

Answer 1

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.