Дан массив из десяти целых чисел определите сколько элементов массива имеют максимальное значение

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

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.

Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.

Учитель информатики

Сайт учителя информатики. Технологические карты уроков, Подготовка к ОГЭ и ЕГЭ, полезный материал и многое другое.

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

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

Ответ

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

pascal Напишите программу подсчета количества элементов этого массива, имеющих максимальное значение [закрыт]

Хотите улучшить этот вопрос? Добавьте больше подробностей и уточните проблему, отредактировав это сообщение.

Закрыт 2 года назад .

В принципе это стандартная задача

Всё ещё ищете ответ? Посмотрите другие вопросы с метками pascal или задайте свой вопрос.

Нажимая «Принять все файлы cookie», вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.

Дан массив из десяти целых чисел определите сколько элементов массива имеют максимальное значение