Răspuns :
int main()
{int a,b,c,d,e,s=0,v[100],i,j,m,n;
cin>>n;
for(i=0;i<n;i++)
cin>>v[i];
for(i=0;i<n;i++)
{s=0;if(i!=n-1)for(j=i+1;j<n;i++){s=s+v[j];v[i]=s;}if(i==n-1)for(j=0;j<n;j++){s=s+v[j];v[i]=s;}
}
return 0;}
Sper ca nu am gresit la nimic
Program CCC;
type Tablou=array [1..100] of integer;
var n, i, j, suma, suma2: integer;
X:Tablou;
begin
write ('Introduceti n: '); readln (n);
write ('Introduceti ',n, ' elemente: ');
for i:=1 to n do read (X[i]);
for i:=1 to n do begin
suma:=X[i]+suma;
suma2:=0;
for j:=i to n do begin
suma2:=X[j+1]+suma2; X[i]:=suma2; end;
end;
X[n]:=Suma;
writeln ('Afisarea componentelor modificate: ');
for i:=1 to n do write (X[i], ' ');
writeln;
readln;
readln;
end.
type Tablou=array [1..100] of integer;
var n, i, j, suma, suma2: integer;
X:Tablou;
begin
write ('Introduceti n: '); readln (n);
write ('Introduceti ',n, ' elemente: ');
for i:=1 to n do read (X[i]);
for i:=1 to n do begin
suma:=X[i]+suma;
suma2:=0;
for j:=i to n do begin
suma2:=X[j+1]+suma2; X[i]:=suma2; end;
end;
X[n]:=Suma;
writeln ('Afisarea componentelor modificate: ');
for i:=1 to n do write (X[i], ' ');
writeln;
readln;
readln;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!