Вот готовый, только замени дату, имя, школу!
Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[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.
Картинка находится во вложении
1 минута - 60 секунд
1000:60*36=600 (кб можно передать за 36 секунд при скорости 1000 кб/мин)
В код программы (после команды загрузки картинки) напиши
Setwindowsize (10,10);
Вместо 10,10 можешь вставить свое число
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее