Числа задаются случайным образом на случайном промежутке. Если требовался ввод с клавиатуры, напишите об этом.
var a: array[1..20] of integer;
var i,min: integer;
begin
randomize();
min:=1;
for i:=1 to 20 do
a[i]:=random(-100,100);
write(a[i],' ');
if (a[i]<a[min]) then min:=i;
end;
writeln();
writeln('Меньшее из 20 чисел равно ',a[min]);
end.
Числа задаются случайным образом на случайном промежутке. Если требовался ввод с клавиатуры, напишите об этом.
var a: array[1..20] of integer;
var i,min: integer;
begin
randomize();
min:=1;
for i:=1 to 20 do
begin
a[i]:=random(-100,100);
write(a[i],' ');
if (a[i]<a[min]) then min:=i;
end;
writeln();
writeln('Меньшее из 20 чисел равно ',a[min]);
end.