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
readln(a[i]);
if a[i]<min
then min:= a[i];
end;
writeln('Минимальный элемент массива: ',min);
end.
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