Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):
uses crt;
const n=10;
var m : array[1..n] of integer;
i, max, max_i : integer;
begin
for i:= 1 to n do
begin
m[i]:= random(-10) + 10;
write(m[i],' ');
end;
max:= m[1];
max_i:= 1;
for i:= 1 to n do
begin
if (max > m[i]) then
begin
max:= m[i];
max_i:= i;
end;
end;
writeln();
writeln('max = m[',max_i,']');
writeln('max = ',max);
end.
Скачать вложение Текст (TXT)