Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. программа получает на вход числа, кол-во чисел неизвестно, последовательность заканчивается числом 0 (0 в последовательность не входит)

Var
  a: array[1..1000] of integer;
  sa: real;
  i: byte;
begin
  writeln ('Введите числа: ');
  i:=0;
  sa:=0;
  repeat
    i:=i+1;
    read (a[i]);
    sa:=sa+a[i];
  until a[i]=0;
  sa:=sa/(i-1);
  writeln ('Среднее арифметическое чисел = ',sa);
end.

Пример:
Введите числа: 
2 4 2 4 2 4 0 
Среднее арифметическое чисел = 3

c++

#include <iostream>

using namespace std;

int main()

{

   const int N = 11;

   int arr[N];

   int i, x;

   for (i = 0; i < N; i++)

   {

       arr[i] = rand() % 10;

       cout << arr[i] << " ";

   }

   cout << endl;

   for (i = 0; i < N / 2; i++)  

   {

       x = arr[i];

       arr[i] = arr[N - i - 1];

       arr[N - i - 1] = x;

   }

   for (i = 0; i < N; i++)

   {

       cout << arr[i] << " ";

   }

   cout << endl;

}

Объяснение:

a=0

b=[]

while(1==1):

c=int(input("\033[1m\033[36m{}\033[35m".format("Введите число")))

a+=1

if(c>30000):

print("\033[1m\033[36m{}\033[0m".format("Такие большие числа вводить нельзя"))

elif(a>1000):

print("\033[1m\033[36m{}\033[0m".format("Больше чисел вводить нельзя"))

break

elif(c==0):

break

elif((c>0)and(c<30001)):

b.append(c)

a=0

c=0

for i in b:

a+=1

if((i/3 in range(1,10000,1))and(i in range(1,30000,2))):

c+=1

else:

continue

print("\033[1m\033[36m{}\033[0m".format(f"""Количество чисел в последовательности: {a}.

Количество чисел в последовательности, которые кратны трём и являються нечётными: {c}. """))

Объяснение:

(извини за ошибки, у меня в школе русский не преподают, ибо я в Украине)

1.(1 строка):

Создаем переменную, которая будет служить для подщёта чисел в последовательности, что бы их количество не превышало 1000;

2.(2 строка):

Создаем переменную, которая является массивом (скобы пустые, что значит, що массив мы будем заполнять динамично, то есть по ходу выполнения программы). Этот массив будет использоваться для хранения в нем чисел из последовательности.

3.(3-14 строки):

Создаем цикл while, который запрашивает у пользователя числа, после этого прибавляет к количеству чисел в последовательности 1. Если введённое число больше 30000, то программа оповещает пользователя об этом и продолжает запрашивать числа. Если количество чисел больше 1000, то программа оповещает пользователя, и прекращает запрашивать числа, так как их уже слишком много. Если число ровно 0, то программа прекращает запрашивать числа. Если же число проходит все вышеупомянутые условия, то число дополняет список;

4.(15 и 16 строки):

Даём старым переменным новые значения, для подщёта чисел в последовательности, и чисел в последовательности, которые кратны трем и являются нечётными;

5.(17-23 строки):

Создаем цикл for, который для всех чисел в массиве, который хранит последовательность,

шитает количество чисел, и количество чисел, которые кратные трём и нечётные;

6.(24 строка):

Выводим на экран количество чисел, форматируя их f-строками, а для удобности чтения ставим три запятые, чтобы текст в программе писался так, как и в коде, то есть между строкой, где написано количество чисел, и строкой где написано количество чисел, которые кратные трём