Объяснение:
Pascal
var a,i,s,n:integer;
begin
s:=0;
n:=0;
repeat
readln(a);
if a>0 then begin
n:=n+1;
s:=s+a;
end;
until a = 0;
writeln('Сумма ',s:5,' Среднее арифметическое ',s/n);
end.
