Question

С клавиатуры вводится последовательность целых чисел пока не введём число
”0”. Напишите программу которая вычисляет среднее арифметическое
отрицательных чисел и среднее геометрическое положительных чисел.
Паскаль(Pascal)

Answer 1

Ответ:

навряд ли вам дадут ответ на паскале, потому что люди которые понимают, что к чему давно перешли на питон

import math

s = input()

while s != '0':

      summ = 0

      k = 0

      summ1 =0

       k1 = 0

     s = int(s)

      if s < 0:

            summ += s

            k+=1

     else:

            summ1*= s

            k1 += 1

print(summ/k)

print(pow(summ1, (1/k1)))

здесь в бесконечном цикле до 0 вводим числа и разбиваем их на группы > 0 и < 0 соответственно,  после этого добавляем их в переменные для будущего вывода, ну и по формулам выводим

перепешите на паскаль