Question

Найти минимальный элемент массива Паскаль

Answer 1

program raf105;

const

 n = 5;

var

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

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Минимальный элемент массива: ',min);

end.

Язык PascalABC