Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 10
1

Вывести количество элементов массива, значение которых больше среднего арифметического его элементов

15.12.2013, 23:11. Просмотров 1451. Ответов 1
Метки нет (Все метки)

Дан массив из 30 элементов. Написать программу, которая находит и выводит количество элементов массива, значение которых больше среднего арифметического значения элементов этого массива. Размерность массива и диапазон значений произвольные.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2013, 23:11
Ответы с готовыми решениями:

Вывести количество элементов массива, значение которых больше среднего арифметического
Дан двумерный квадратный массив из 16 элементов.Написать программу, которая находит и выводит...

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

Найти количество элементов массива, значение которых больше среднего арифметического
Дан массив. Найти количество элементов, значение которых больше среднего арифметического...

Найти количество элементов массива, абсолютное значение которых больше среднего арифметического
Задан целочисленный массив, состоящий из 10 эелементов.Найти кол-во элементов, абсолютное значение...

1
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
16.12.2013, 17:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses Crt;
const
 a=30;
var mas : array [1..a] of integer;
i,k : integer;
s : real;
begin
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to a do begin
mas[i]:=random(100);
write(mas[i]:4);
s:=s+mas[i];
end;
writeln;
s:=s/a;
for i:=1 to a do
if mas[i]>s then k:=k+1;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå çíà÷åíèå ìàññèâà = ',s:1:5);
writeln('Êîëè÷åñòâî ýëåìåíòîâ áîëüøå ñðåäíåãî àðèôìåòè÷åñêîãî çíà÷åíèÿ ýëåìåíòîâ ìàññèâà = ',k);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2013, 17:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти и вывести сумму элементов массива, значение которых больше среднего арифметического
Дан квадратный массив на 16 элементов. Написать пр-му, которая позволяет найти и вывести сумму...

Выдать номера элементов, значения которых больше среднего арифметического элементов массива
1. Заполнить массив из 10-ти элементов целыми случайными числами в диапазоне 1 – 20 и выдать номера...

Вывести количество элементов матрицы, значение которых больше среднего арифметического значения элементов
Помогите пожалуйста с заданием, нужен код программы с применением двумерного массива Тема:...

Массив: вывести сумму элементов массива, значение которых больше среднего арифметического значения элементов
дан массив на 30 элементов. написать программу которая позволяет найти и вывести сумму элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.