В одномерном массиве А (10) найти минимальный элемент.

Min:=A[1];

for i:=1 to 10 do

if min

Program massiv;

var i, min: integer;

a: array[1 ... 10] of integer;

begin

writeln ('Введите элементы массива') ;

for i:=1 to 10 do

begin

write ('a[', i,']-') ;

readln (a[i]) ;

end;

min:=a[i];

for i:=2 to 10 do

if min>a[i] then

begin

min:=a[i];

end;

writeln ('Наименьший элемент в массиве ', min) ;

end.