Вычислить сумму всех произведений значения элемента на его порядковый номер в последовательности.

Eskard

Добрый вечер, я новенький на этом форуме и только постигаю основы программирования... Очень прошу вас указать на мою ошибку в данном коде:
program cikl;
 
var
  n, i, k, l,s : integer;
  
begin
  read (n);
  
  k := 0;
  s := 0;
  
  for i := 1 to n do
   begin
     read (n);
     k := k+1;
     l := n * k;
     s := s+l;
   end;
   write (s);
end.
Вот условие задачи...
Кликните здесь для просмотра всего текста
Вычислить сумму всех произведений значения элемента на его порядковый номер в последовательности.Входные данные: Во входном потоке в первой строке записано единственное целое число N (0 < N <=100) - число элементов числовой последовательности Во второй строке - перечислены значения элементов целочисленной последовательности (через пробел). Значения элементов по модулю не превышают 1000.Выходные данные: В выходной поток вывести единственное целое число.Пример входного файла (input.txt): 10 43 564 32 76 342 76 43 342 8... Пример выходного файла (output.txt): 15078
Постоянно появляется такая ошибка - Ошибка во время исполнения программы.Буду очень рад ответам по теме. Спасибо вам огромное!
3 ответа

Eskard

var
  n, i, x, s : integer;
 
begin
  write('Сколько элементов в последовательности? ');
  read (n);
  s := 0;
 
  for i := 1 to n do
   begin
     write(i,'-элемент = ');
     readln(x);
     x:=x*i;
     s := s+x;
   end;
   write ('s = ',s);
end.
использование n внутри цикла нежелательно, зато желательно приглашение на ввода данных.. файлы сами прикрутите?


Eskard

файлы сами прикрутите?
Файлы даны для примера, в них нет необходимости, спасибо за помощь.


Eskard

var
  n, i, x, s : integer;
 
begin
  write('Сколько элементов в последовательности? ');
  read (n);
  s := 0;
 
  for i := 1 to n do
   begin
     write(i,'-элемент = ');
     readln(x);
     x:=x*i;
     s := s+x;
   end;
   write ('s = ',s);
end.
использование n внутри цикла нежелательно, зато желательно приглашение на ввода данных.. файлы сами прикрутите?
Var n,i,x,s:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
readln(x);
x:=x*i;
s:=s+x;
end;
write(s);
end.
Подскажите где ошибка? (В юном программисте видает).