Ответ(ы) на вопрос:
Гость1)6
3)var a,b,c,x:integer;
begin; a:=0; b:=0; readln(c); for c:=1 to c do begin readln(x); a:=a+x; b:=b+x; end; writeln('сумма =',a); writeln('среднее =',b/c) end.
Не нашли ответ?
Похожие вопросы