Решение с использованием массивов / pascal (паскаль) - вопрос №2538830 от kaaaarrrr 31.01.2020 10:30

Question

Информатика: Решение с использованием массивов / pascal (паскаль) , , решить ! определить количество дней в первой декаде месяца, когда температура была выше средней. исходные данные: t - массив температуры промежуточные данные: i - порядковый номер sum - суммированная температура за 10 дней srt - средняя температура за 10 дней результирующие данные: k - количество дней с температурой выше средней sum: =sum+t[i] srt: =sum/10 k: =k+1, если выполняется srt

kaaaarrrr · Answer

Program KTD;var T:array [1..10] of real;SUM, SRT:real;i,K:byte;beginfor i:=1 to 10 doreadln(t[i]);for i:=1 to 10 dobeginsum:=sum+t[i];end;srt:=sum/10;for i:=1 to 10 dobeginif t[i] srt thenk:=k+1;end;writeln(k);end.Проверил, работает. Удачи:)...