Паскаль, 10 класс, надо
заполните массив случайными числами в интервале [0, 50] и выведите номера всех элементов которые равны наибольшему элементу​

var a: array [1..100] of integer;

var index of integer;

var mmax of   integer;

begin

for i: =1 to do

a[i]: =random(-1)+50; // формула рандома random(b-a+1)+a;

// вывод всех номеров

for i: =1 to do

if(a[i] => mmax):

mmax = a[i];

for i: =1 to do

if(a[i]! =mmax):

index++;

else:

write(index);

могут быть ошибки в коде так как давно на паскале ничего не делал, но алгоритм примерно тот же