Страница 72-86 §2.2 номер 8, ГДЗ по информатике за 9 класс к учебнику Босовой

program z_8;const n = 10;var i, max, k: integer; a: array [1..n] of integer;begin k := 0; randomize; for i := 1 to n do a[i] := random(50); max := a[1]; for i := 2 to n do if max < a[i] then max := a[i]; for i := 1 to n do if a[i] = max then k := k + 1; writeln('Количество элементов, имеющих максимальное значение>>', k)end.