Дан массив из десяти целых чисел. Напишите программу подсчета количества элементов этого массива, имеющих максимальное значение.
Ответ
Задача решается в 2 шага:
1) определяется наибольшее значение элементов массива;
2) подсчитывается количество элементов массива, равных максимальному.
program massiv_10;
var
а: array [1..10] of integer; // Исходные данные
i: integer; // Счетчик цикла
max: integer; // Промежуточная величина
k: integer; // Результат
begin
randomize;
for i:=1 to 10 do
a[i]:=random(5);
for i:=1 to 10 do
writeln (‘а[‘, i, ‘] а [i]);
max:=a[1];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writеln (‘max = ‘ , max) ;
k:=0;
for i:=1 to 10 do
if a[i] = max then k:=k+1;
writeln (‘k = ‘, k);
end.