Вопрос по информатике:
4.Создать массив а из десяти целых чисел, принадлежащих промежутку [0; 20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых превышают среднее арифметическое значений его элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.08.2016 11:33
- Информатика
- remove_red_eye 10179
- thumb_up 27
Ответы и объяснения 1
a: array [1..10] of integer;
i, k: integer;
s: real;
Begin
for i:=1 to 10 do
a[i]:=random(20);
write('Массив: ');
for i:=1 to 10 do
write(a[i], ', ');
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i];
s:=s/10;
writeln('СА чисел: ', s);
k:=0;
for i:=1 to 10 do
if a[i] > s then
k:=k+1;
write('Кол-во элементов массива, превышающих СА: ', k);
end.
***
Примерный вывод:
Массив: 9, 1, 4, 16, 19, 14, 16, 6, 11, 16,
СА чисел: 11.2
Кол-во элементов массива, превышающих СА:5
- 25.08.2016 10:25
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.