икт решите пожалуйста, все на кртинке

Икт решите пожалуйста, все на кртинке

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт