С клавиатуры вводится n чисел. Отыскать сумму чисел умноженных на 2

С клавиатуры вводится n чисел. Найти сумму чисел умноженных на 2 (Паскаль)

Задать свой вопрос
1 ответ

Var a,b,n,i:integer;

begin

read (n);

b:=0;

For i:=1 to n do begin

read (a);

b:=b+a*2;

end;

Writeln (b);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт