ПОИСК МИНИМАЛЬНОГО И МАКСИМАЛЬНОГО ЭЛЕМЕНТОВ МАССИВА

Решим следующую задачу. Дан массив из десяти целых элементов. Найти минимальный элемент массива.

program N5;

Const n=10;

Var a : array [1..n] of integer;

i, m : byte;

min : integer;

begin

//Вывод общего количества элементов массива

writeln('Enter number of elements <=', n);

readln(m);

//Ввод текущего количества элементов массива

writeln('Enter massiv ');

For i:=1 to m do

//Ввод элементов массива в столбик

begin

write('a', i,'=');

read(a[i]);

end;

// Начальное значение переменной min

min:=a[1];

//Поиск минимального значения

For i:=2 to m do

if a[i]<min then min:=a[i];

//Вывод минимального элемента

writeln('min=',min); end.