Написать программу, которая вводит с клавиатуры натуральные числа не превышающие 30000 до тех пор, пока не будет введено число 0. в конце работы на экран выводятся: количество введенных чисел, их сумма, произведение, среднее значение, максимальное и минимальное числа.

Program n1;
var a,sum,k,max,min: integer;
p: real;
begin
readln(a);
max:=a;
min:=a;
p:=1;
k:=0;
sum:=0;
while a<>0 do
begin
k:=k+1;
sum:=sum+a;
p:=p*a;
if a>max then max:=a;
if a<min then min:=a;
readln(a);
end;
writeln('сумма: ',sum,'; кол-во: ',k,'; max=',max,'; min=',min,'; произв: ',p,'; срзнач: ',sum/k); 
end.

Код на С++

// Example program#include <bits/stdc++.h>
using namespace std;
int main(){  int mas[100], i, maxl = -1, minl = 30000, sum = 0, k = 0, pro = 1;int n = 1;
while (n != 0) { cin >> n;   if (n != 0) {     k++; maxl = max(n, maxl); minl = min(n, minl); pro = pro * n; }  sum = sum + n;}
cout << k << endl;cout << sum << endl;cout << pro << endl;cout << sum / k << endl;cout << maxl << endl;cout << minl << endl;  return 0;  }