Дан массив из десяти целых чисел. Напишите программу подсчета количества элементов этого массива

Дан массив из десяти целых чисел. Напишите программу подсчета количества элементов этого массива, имеющих максимальное значение.

Ответ

Задача решается в 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.

Опубликовано: 15.11.2019 Обновлено: 15.11.2019
Поделись с друзьями

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

5 × три =