Question

transformaţi în pascal x=x1+x2+....xn​

Answer 1

Răspuns:

var

 n, i, x, xi: integer;

 sum: longint;

begin

 readln(n);

 sum := 0;

 for i := 1 to n do begin

   read(xi);

   sum := sum + xi;

 end;

 x := sum;

 writeln(x);

end.

Explicație:

Acest cod va prelua intrarea lui n și apoi va folosi o buclă for pentru a citi n valori ale lui xi. Apoi va aduna toate xi-urile și va atribui suma variabilei x. În cele din urmă, va scoate valoarea lui x.