Program n_1;var i,n:byte;mass:array[1..100] of integer;summ:integer; beginWrite('Введите длину массива: ');readln(n);mass[1]:=2;for i:=2 to n do//beginmass[i]:=mass[i-1]+5;//Writeln(mass[i]); //end;summ:=mass[1]; for i:=2 to 15 dosumm:=abs(summ+mass[i]); Writeln('Сумма последовательности чисел равна: ',summ);end.
Убери комментарии,чтобы показать всю последовательность.
beginWrite('Введите длину массива: ');readln(n);mass[1]:=2;for i:=2 to n do//beginmass[i]:=mass[i-1]+5;//Writeln(mass[i]);
//end;summ:=mass[1];
for i:=2 to 15 dosumm:=abs(summ+mass[i]);
Writeln('Сумма последовательности чисел равна: ',summ);end.
Убери комментарии,чтобы показать всю последовательность.