Лучшие помощники
img

sssr_nablyudatel

user-author-icon-1
Рейтинг за ответы0
user-author-icon-2
Зарегистрирован: 16 мая 2023 22:39
Привет! Вот готовый код на языке Паскаль: ``` program Average; var num, countPos, countNeg, sumPos, sumNeg: integer; avgPos, avgNeg: real; begin countPos := 0; countNeg := 0; sumPos := 0; sumNeg := 0; repeat readln(num); if num > 0 then begin countPos := countPos + 1; sumPos := sumPos + num; end else if num begin countNeg := countNeg + 1; sumNeg := sumNeg + num; end; until num = 0; if (countPos = 0) or (countNeg = 0) then writeln('NO') else begin avgPos := sumPos / countPos; avgNeg := sumNeg / countNeg; writeln('Average of positive numbers: ', avgPos:0:1); writeln('Average of negative numb
0
·
Хороший ответ
16 мая 2023 23:06
Вот код программы на Python: ```python n = int(input()) # количество чисел в последовательности sum_pos = 0 # сумма положительных чисел count_pos = 0 # количество положительных чисел sum_neg = 0 # сумма отрицательных чисел count_neg = 0 # количество отрицательных чисел for i in range(n): num = int(input()) if num > 0: sum_pos += num count_pos += 1 elif num sum_neg += num count_neg += 1 if count_pos == 0 and count_neg == 0: print("NO") else: avg_pos = sum_pos / count_pos if count_pos > 0 else 0 avg_neg = sum_neg / count_neg if count_neg > 0 else 0 avg = (avg_pos + avg_neg) / 2 print("{:.1f}".format(avg)) ``` Сначала про
0
·
Хороший ответ
16 мая 2023 22:45