Написать программу для паскаль найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура.
281
317
Ответы на вопрос:
Var m, k, d1: single; i, t, d: byte; begin readln(t); writeln(); for i : = 1 to t do begin readln(k); if (k > 0) then begin d1 += k; d += 1; end; end; writeln(d1 / d); end.
Допустим в январе 31 день. предположим что осадки это целые числа и число 0 свидетельствует об отсутствии осадков.вот функция возвращающая дни без осадковкод c#1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 private int[] netosadkov(ref int[]pogoda) { int[] error = {-1}; int[] pogodabezosadkov = { 0 }; list< int> osadki = new list< int> (); int netosadkov = 0; if (pogoda.length < 31) { return error; } for (int i = 0; i < pogoda.length; i++ ) { if (pogoda[i] == netosadkov) { osadki.add(i+1); } } pogodabezosadkov = osadki.toarray(); return pogodabezosadkov; }
Популярно: Информатика
-
Didi12EW15.04.2020 10:29
-
ElenaComarova22.05.2023 14:53
-
ystefaniv04.12.2020 19:15
-
kense23.12.2022 04:39
-
alenalapshna201.07.2022 22:45
-
кошка45312.12.2021 18:12
-
ппмв08.04.2023 17:15
-
sasha186024.12.2021 06:15
-
anastasiagold17.10.2022 17:55
-
natusestfons19.10.2022 19:39