икт решите пожалуйста, все на кртинке
Дополнительные материалы:
Ответ
0
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.
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.