Информация о среднесуточной температуре воздуха за месяц в виде массива . определите и выведите на экран сколько раз температура была ниже среднемесячной информатика
ulashn
3
07.10.2019 05:30
4
Другие вопросы по теме Информатика
sora1ppppoyn1vx
25.12.2020 11:02
Lesia3081984
25.12.2020 11:00
kirillkosyarev
25.12.2020 11:00
tanechkakitty
12.09.2019 17:11
deaddynasty3
12.09.2019 17:11
Лизочка2597
12.09.2019 17:11
vipzedd
12.09.2019 17:11
скули
12.09.2019 17:00
nabiullinnazim
12.09.2019 17:00
Популярные вопросы
- Помидоров собрали на 456 кг меньше, чем огурцов. сколько собрали огурцов, если...
3 - Какие ощущения вы испытывали купаясь летом в реке...
3 - Продолжите предложения 1)ученик слушал невнимательно,а 2)осеннее солнце светило...
1 - Сочинение на тему моё любмое животное...
1 - Вкаких координатных четвертях нет ни одной точки графика уравнения 2,5xквадрат...
1 - Длина экватора луны приближенно равна 10.9 тыс км.чему равен диаметр лу ны?...
2 - Как научно техническая революция влияет на здоровье человечества?...
1 - Спереводом,. 1. – расскажите, , какая у вас бывает зима. – зима у нас наступает...
2 - Составить предложение по схеме подлежащее сказуемое определение определение определение...
2 - Семи богатырям 126 лет сколько им будет через 3 года а.129 б.133 в.140 г.147...
2
var
a:array[1..30] of real;
average,s:real;
i,x:integer;
begin
for i:=1 to 30 do
begin
read(a[i]);
s:=s+a[i]
end;
average:=s/30;
for i:=1 to 30 do
if a[i]<average then x:=x+1;
writeln(x)
end.