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

program massiv;var i,min: integer;a: array[1..10] of integer;beginwriteln ('Введите элементы массива');for i:=1 to 10 dobeginwrite ('a[',i,']-');readln (a[i]);end;min:=a[i];for i:=2 to 10 doif min>a[i] thenbeginmin:=a[i];end;writeln ('Наименьший элемент в массиве ', min);end.

min:=A[1];for i:=1 to 10 do    if min<A[i] then min:=A[i];