Question

Вычислить сумму первых N чисел натурального ряда. С использованием операторов цикла For-To (или For-Downto), While-Do и Repeat-Until. Паскаль

Answer 1

const 
c=10; 
var a:array[1..c] of integer; 
n,i,s:integer; 
begin 
writeln('Введите элементы массива'); 
for i:=1 to c do 
read(a[i]); 
writeln('Введите количество первых N чисел'); 
read(n); 
for i:=1 to n do 
s:=s+a[i]; 
writeln('Сумма первых ', n, ' чисел массива = ', s); 
end.