const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln ('Min: ',min);
readln;
end.
uses crt;
var
a:array[1..100] of integer;
i,min:integer;
begin
randomize;
write('Введи количество элементов массива: '); read(i);
min:=100;
clrscr;
writeln('Массив: ');
for i:=1 to i do
begin
a[i]:=random(10)-9;
write(a[i]:4);
if a[i]<min then min:=a[i];
end;
writeln;
write('Минимальный элемент массива: ',min);
end.
