Question

Решение задач с использованием массивов / Pascal (Паскаль)
Помогите, пожалуйста, решить задачу!

Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;

Answer 1

Program KTD;
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.
Проверил, работает. Удачи:)