Найти количество элементов массива, больших среднего арифметического - Pascal ABC
Формулировка задачи:
Составить программы, находящую в данном массиве:
количество элементов, больших среднего арифметического всех его элементов.
Решение задачи: «Найти количество элементов массива, больших среднего арифметического»
textual
Листинг программы
// Найти в массиве количество элементов, больших среднего арифметического всех его элементов.
const n=1000;
var a:array[1..n] of integer;
k,l,m:integer;
i:integer;
begin
writeln('Введите количество элементов массива: ');
readln(m);
writeln('Введите массив: ');
for i:=1 to m do readln(a[i]);
for i:=1 to m do
begin
k:=k+a[i];
k:=k div m;
end;
for i:=1 to m do
if a[i]>k then inc(l);
writeln('Количество элементов, больших среднего арифметического всех его элементов: ',' ',l);
end.
Объяснение кода листинга программы
- Объявляются переменные: — n - размер массива (1000); — a - массив (1000 элементов); — k - количество элементов, которые больше среднего; — l - количество элементов, которые меньше или равны среднему; — m - количество элементов в массиве.
- Запросить у пользователя размер массива и заполнить его значениями.
- Найти среднее арифметическое элементов массива, используя переменную k.
- Пройти по всем элементам массива и сравнить их со средним значением. Если элемент больше среднего, увеличить значение переменной k.
- Вывести на экран количество элементов, больших среднего арифметического всех его элементов.