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

Question

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

Answer 1

var i,min:integer; a:array[1..20]ofinteger;   beginfor i:=1to20do  begin   write('Введи число №',i,': ');   readln(a[i]);  end; min:=a[1]; for i:=2to20do   if a[i]then     min:=a[i];   Writeln('Минимальное: ',min)end.