9класс
Страница 72-86 §2.2 номер 8, ГДЗ по информатике за 9 класс к учебнику Босовой
Номер 8. Дан массив из десяти целых чисел. Напишите программу подсчёта количества элементов этого массива, имеющих максимальное значение.
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.
