Помогите, пожалуйста. Задан массив А(n). Вычислить: а1 + 2*а2 +...+ n*an

Помогите, пожалуйста. Задан массив А(n). Вычислить: а1 + 2*а2 +...+ n*an

Задать свой вопрос
2 ответа
Const n=10;
var a:array[1..n] of integer;
s,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+i*a[i];
writeln('s = ',s);
end.

Пример:
17 30 10 32 46 5 43 7 40 25
s = 1462
Boris
Спасибо
Липсе Павел
Пожалуйста.
Tema Haitov
Подскажите, пожалуйста, это Java Script?
Даниил
Это паскаль.
Галя Обробина
А языком Java Script сможете, пожалуйста, посодействовать?
Кристина Голубкина-Фейгина
Оформляйте задачку. Посмотрю.
Junakovskaja Oksana
А как оформить?
Summ = 0
for i in range(1, 1+n):
summ += i*A[i-1]
print(summ)
Илюха Стругов
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт