👤

Urgent!!! Se citesc n elemente întregi.Care este suma elementelor aflate pe poziții impare în vector?
Programul sa fie în Pascal vă rogg!


Răspuns :

program sumaPeRangImpar;

var n, i, s:integer;

   v:array[1..100]of integer;

begin

 write('n='); read(n);

 writeln('Introdu ',n,' numere intregi:');

 s:=0;

 for i:=1 to n do

   begin

     read(v[i]);

     if i mod 2=1 then s:=s+v[i];

   end;

 writeln('Suma elementelor de pe pozitii impare: ',s);

end.

Explicație: