var a:array [1..5] of integer;
i,m:integer;
begin
m:=6;
write('Массив: ');
for i:=1 to 5 do
a[i]:=random(6)+1;
write(a[i],' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln('Минимальный элемент: ',m)
end.
var a:array [1..5] of integer;
i,m:integer;
begin
m:=6;
write('Массив: ');
for i:=1 to 5 do
begin
a[i]:=random(6)+1;
write(a[i],' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln('Минимальный элемент: ',m)
end.