Question

Составить программу вывода наименьшего элемента массива, состоящего из 20 элементов из диапазона (100;300).

Answer 1

var a: array[1..20] of Integer;
i,min: Integer;
begin
for i:=1 to 20 do
begin
readln(a[i]);
end;
min:=a[1];
for i:=1 to 20 do
begin
if min>a[i] then min:=a[i];
end;
writeln(min);
end.