Question

DAU COROOOANAAA !!!!!
Scrieti un program Pascal ce va calcula suma primelor n numere din sirul numerelor naturale.

Answer 1

Program Augustin;
var
x:array [1..100] of integer;
i,n,s,l:integer;
begin
Writeln('Introdu lungimea sirului de numere');
readln(l);
Writeln('Completeaza sirul');
for i:=1 to l do
begin
Writeln('x[',i,']=');
readln(x[i]);
end;
Writeln('Introdu lungimea primelor numere din sir');
readln(n);
for i:=1 to n do
s:=s+x[i];
Writeln('Suma primelor n numere= ',s);
readln;
end.