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

program n1;

uses crt;

var n,s,c: real;

begin

      clrscr;

      write('введите числа. конец ввода 0: ');    

      n: =1; s: =0; c: =0;

      while (n< > 0) do

          begin

              readln(n);                

if (n=0) then break;  

  if (n> 0)   then 

          begin  

                s: =s+n;

                c: =c+1;

          end;  

          end;    

    writeln('сумма чисел: ',s);

    writeln('среднее арифметическое: ',s/c);    

      readkey;

  end.

program n2;

uses crt;

var n,s,c: real;

begin

      clrscr;

      write('введите числа. конец ввода 0: ');    

      s: =0; c: =0;

      repeat

          readln(n);

          if (n=0) then break;

            if (n> 0)   then

              begin  

                    s: =s+n;

                    c: =c+1;  

                end;

          until (c=0);  

    writeln('сумма чисел: ',s);

    writeln('среднее арифметическое: ',s/c);    

      readkey;

  end.

відповідь:

пояснення:

где вопросы и таблицы