Для языка программирования: Turbo Pascal
program min;
var
a: array [1..10] of integer;
i,p: byte;min: integer;
begin
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=-20+random(80);
write(a[i],' ');
end;
writeln();
min:=a[1];
for i:=1 to 10 do
if (a[i] <= min) then<br>begin
min:=a[i];
p:=i;
end;
writeln('Минимальное число = ',min,' его порядковый номер = ',p);
end.