Дан массив из 10 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение. Надо написать на Паскале, объяснить при этом всё, ещё и блок схему надо — Правильный ответ на вопрос найдете ниже

Ответ: var m:array[1..10] of integer; i,max,cnt:integer;beginmax := -1000;write(‘Massive: ‘);for i := 1 to 10 do beginm[i] := random (11)-5;write(m[i],’ ‘);if m[i] > max then begin inc(cnt); max := m[i]; end;end;writeln;writeln(‘Максимальное число: ‘,max);writeln(‘Всего максимальных чисел: ‘, cnt);end.

Ответ: var m:array[1..10] of integer; i,max,cnt:integer;beginmax := -1000;write(‘Massive: ‘);for i := 1 to 10 do beginm[i] := random (11)-5;write(m[i],’ ‘);if m[i] > max then begin inc(cnt); max := m[i]; end;end;writeln;writeln(‘Максимальное число: ‘,max);writeln(‘Всего максимальных чисел: ‘, cnt);end.