2) Заполнить массив А случайными целыми числами разных знаков. Составить программу вывода на экран номеров элементов массива, равных максимальному.

const n=10; / введем константу;

var a:array[1 ... n] of integer; / заведем массив от 1 до n;

max, i:integer; / установим max;

begin / тело программы;

Randomize; / подключаем рандомайзер;

writeln ('Исходный массив:'); / вывод массива;

for i:=1 to n do begin / массив;

a[i]:=random (21) - 10;

write (a[i],' '); / вывод на экран;

end;

writeln;

max:=a[1]; / массив в котором сравниваем с макс;

for i:=2 to n do

if a[i]>max then max:=a[i];

writeln ('max = ', max); / вывод;

for i:=1 to n do

if a[i]=max then write (i:3);

writeln;

end.