Размещено 4 года назад по предмету
Информатика
от Pusheeen
Решение задач с использованием массивов / 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;