Решение с использованием массивов / pascal (паскаль) , , решить ! определить количество дней в первой декаде месяца, когда температура была выше средней. исходные данные: t - массив температуры промежуточные данные: i - порядковый номер sum - суммированная температура за 10 дней srt - средняя температура за 10 дней результирующие данные: k - количество дней с температурой выше средней sum: =sum+t[i] srt: =sum/10 k: =k+1, если выполняется srt
aygerimorazhan
3
05.06.2019 01:20
1
Другие вопросы по теме Информатика
gejdanp0dmbe
19.10.2020 01:00
LikiMikhoelis
19.10.2020 01:00
Russi147958
09.07.2019 10:10
sodel28
08.04.2019 20:23
симон8
28.08.2019 12:10
Dragonhaadi
28.08.2019 12:10
MADINABALA
28.08.2019 12:10
Lisova1
28.08.2019 12:10
Популярные вопросы
- Кто такой Наср Аль-Фараби? ...
1 - Написать 10 предложений о писателе, что объединяло мальчика и деда, почему...
3 - 1. «Ер жігіттің екі сөйлегені - өлгені, Еменнің иілгені - сынғаны» мақалдың...
1 - Мәтінді оқы. Мәтін бойынша жоспар кур даю 40б...
2 - Поставьте следующие предложения в и будущее время, обращая внимание на...
3 - 12. Прочитай. Как ты понимаешь смысл последнего предложения? Спишитекст,...
1 - Необходимо рассчитать количество кафельной плитки (в штуках) для отделки...
2 - 1)Как ыполняется правка листовых заготовок на листоправильных машинах?...
2 - буду очень благодарен вам ...
2 - Решите Составьте уравнения реакций: А) Ca + HCl→ Б) ZnO + HCl→ В) Fe2O3...
2
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.
Проверил, работает. Удачи:)