Дан массив целых чисел. требуется найти количество элементов, которые больше и меньше среднего арифметического всех элементов массива
Sasha2007ad
3
29.03.2019 14:40
1
Другие вопросы по теме Информатика
MashaTears1
06.09.2019 09:41
Gilirop77
26.10.2020 15:50
диана2471
26.10.2020 15:43
vangelinna
26.10.2020 15:42
Veteran2211
26.10.2020 15:40
irinakholod
13.06.2020 13:36
GeneralEsdese
14.06.2020 13:56
dan4280
13.06.2020 13:59
nastya261205
24.10.2020 19:33
Популярные вопросы
- Является ли число -2/3 корнем уравнений?а) 27x = 18с) 3х + 21 =...
2 - . Запиши, к какому классу принадлежит семейство Злаки. (Запиши...
2 - ответить на во Верно ли утверждение:любая стационарная точка является...
3 - Решить задачу: в цепях постоянного тока нужно замерить напряжение...
1 - Написать сообщение История одного из правоохранительных органов...
1 - Найдите предлоги, дайте им характеристику : производные или непроизводные...
1 - Алгебра задание 1. Продолжи запись: первый вариант (2x в степени...
1 - Тест «Обособленные определения и приложения» 1 вариант 1. Укажите...
2 - Какие словосочетания кажутся вам ошибочными? Почему? Своя автобиография,...
2 - Проблемами са1. Оправдываете ли вы героя, не посчитавшегося с провмьи...
2
var a:array[1..10]of integer;
i,n1,n2:integer;
s:real;
begin
for i:=1 to 10 do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/10;
for i:=1 to 10 do begin
if a[i]>s then inc(n1);
if a[i]<s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.