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

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

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