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.
Убери комментарии,чтобы показать всю последовательность.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
