В паскале.Дан массив целых чисел.Посчитать a1+2*a2+3*a3+...+n*an. 

В паскале.
Дан массив целых чисел.Посчитать a1+2*a2+3*a3+...+n*an.

Задать свой вопрос
1 ответ
Const nx = 20;
var A:array[1..nx]of integer; i,n:integer; sum:double;
begin
write('Введите число частей');Readln(n);
for i:=1 to n do begin
A[i]:= random(100)-50;write(A[i]:5);
sum:= sum + i * A[i];end;
writeln;write('sum = ', sum);end.
Амина Потрягина
неверно же
Кукчишвили Регина
Для чего рандом?
Колька Белинкис
А все....Это ввод рандомный
Мормоль Роман
Спасибо большое
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт