Ответы
Гость Var i,min:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln(min);
end.
Нет комментариев
Похожие вопросы
Список предметов
