Вводиться последовательность ненулевых чисел, 0-конец послодовательности.определить среднее значение элементов последовательности

program dafnochka; uses crt; var  r,sum: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   sum: =0;   k: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write("ввод: ") ;             readln (r);           sum: =sum+r;           k: =k+1;         end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('среднее значение равно ',sum/(k-1)); end.проверено - работает на паскаль авс

#include < iostream>                                                                 using namespace std; #define n 30 int main(int argc, char* argv[])                              {                                    setlocale(lc_all, "russian");       int a[n];       int k = 0;       for(int i=0; i< n; i++)       {             cout< < "a["< < i+1< < "]=";             cin> > a[i];       }       for(int i=1; i< n; i++)             if(a[i]==a[i-1])                   k++;       cout< < k< < "пар"< < endl;       system("pause"); }

Const n=5; var b: array[1..n,1..n] of integer;       i,j: byte;     pr: real; begin       for i: =1 to n do       begin         for j: =1 to n do         begin         b[i,j]: =random(10);           write(b[i,j]: 3);         end;         writeln;       end;     pr: =1;       for i: =1  to n do       for j: =1 to  n  do if i< j then          pr: =pr*b[i,j];       writeln('произведение элементов   = ',pr);     readln; end.