<span>var
</span>f, s: longint<span>;
n</span>, i: byte<span>;
</span><span>begin
</span>write('N = '); readln(n)<span>;
</span>f:= 1<span>;
</span>for i:=2 to n <span>do
begin
</span>f:= f * I;
s:=s+f;
end;<span>
</span> writeln('Summ = ', s)<span>;</span><span>
</span>end<span>.</span>
Если я верно понимаю задание, то массив должен состоять из последовательных чисел. Если это верно, то программа для решения задачи может иметь такой вид:
n=int(input()) #ввод количества элементов массива
x=[i for i in range(n)] #создаем список чисел от 0 до n-1
s=0 #начальное значение суммы
ss=[] #список сумм
for i in range(n): #цикл от 0 до n-1
print(x[i]) #печатаем число массива
s+=x[i] #прибавляем число к сумме
if i%10==0 and i>0: #если количество чисел составило i-й десяток
ss+=[s] # добавляем сумму в список сумм
for i in range(len(ss)): #цикл от 0 до количества сумм
print(ss[i]) #вывод сумм
Можно было бы обойтись без списка х, но по условию сказано, что нужно получить и вывести массив чисел, поэтому список х был создан в начале программы.
замок ( не лает не кусает и в дом непускает)
Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714