Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. использовать оператор repeat.
program z8_1; uses crt; var i:shortint; k,n:byte; s:integer; sa:real; begin clrscr; i:=1; repeat read(i); if i>0 then begin k:=k+1; s:=s+i; end; until i=0; sa:=s/k; write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2); readkey end.
program z8_1;
uses crt;
var
i:shortint;
k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
repeat
read(i);
if i>0 then begin
k:=k+1;
s:=s+i;
end;
until i=0;
sa:=s/k;
write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2);
readkey
end.