Поиск минимального и максимального элементов массива

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

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.

Дата добавления: 2014-01-04; Просмотров: 375; Нарушение авторских прав?; Мы поможем в написании вашей работы!