Question

В одномерном массиве найти минимальный элемент
Паскаль
Помогите пожалуйста

Answer 1

Ответ:

const n=5; //Массив из 5-ти чисел

var

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

    min,i:integer;

begin

for i:=1 to n do

   begin

   readln(a[i]);

   end;

min:=a[1];

for i:=1 to n do

   begin

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

   end;

writeln('Минимальный элемент матрицы = ',min);

end.

Объяснение: