Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем два максимальных элемента и их номера. Пример: Исходный массив: .. максимальные a[4]=10, a[7]=8

1

Ответы и объяснения

Лучший Ответ!
2011-11-14T06:14:42+00:00

program pr;
label l;
var mas:array[1..10] of integer;
i,k,n,b,sum:integer;
begin
randomize;
for i:=1 to 10 do mas[i]:=round((10-(-10))*random+(-10));
l:
for i:=1 to 10 do
begin
if n<mas[i] then
begin
n:=mas[i];
k:=i;
end;
end;
writeln ('a[',k,']=',n);
mas[k]:=-11;
n:=0;
k:=0;
if b=0 then
begin
b:=1;
goto l;
end;
readln;
end.

Программу проверил все работает