Решение с использованием массивов / pascal (паскаль) , , решить ! определить количество дней в первой декаде месяца, когда температура была выше средней. исходные данные: t - массив температуры промежуточные данные: i - порядковый номер sum - суммированная температура за 10 дней srt - средняя температура за 10 дней результирующие данные: k - количество дней с температурой выше средней sum: =sum+t[i] srt: =sum/10 k: =k+1, если выполняется srt
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
begin
for i:=1 to 10 do
readln(t[i]);
for i:=1 to 10 do
begin
sum:=sum+t[i];
end;
srt:=sum/10;
for i:=1 to 10 do
begin
if t[i]>srt then
k:=k+1;
end;
writeln(k);
end.
Проверил, работает. Удачи:)