Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. вид экрана: Введите числа. Для завершения последовательности нажмите ноль. 45 23 15 0 введено чисел:3 сумма чисел:83 Среднее арифметическое:27.67 С ЦИКЛОМ While do пожалуйста напишите а не с Repeat untill

program z8;uses crt;vari,k,n:byte;s:integer;sa:real;beginclrscr; i:=1;writeln('Для завершения последовательности нажмите ноль');while i>0 do beginread(i);

write(' '); {- нужен, чтобы числа нормально смотрелись}if i>0 then begink:=k+1;s:=s+i;end; end;sa:=s/k;write('введено чисел:',k,' сумма чисел:',s,'Среднее арифметическое:',sa:4:2);readkeyend.

uses crt;var a,n,s,ar:real;begina:=1;n:=-1;s:=0;writeln('Введите последовательность чисел: ');while a<>0 do begin read(a); n:=n+1; s:=s+a; end; ar:=s/n; writeln('Введено чисел: ',n); writeln('Сумма чисел: ',s); writeln('Среднее арифметическое: ',ar);end.