Informatică, întrebare adresată de sally10, 8 ani în urmă

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ăspunsuri la întrebare

Răspuns de boiustef
1

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:


sally10: Mulțumesc multt
sally10: Nu diferă mult de-al meu, dar totuşi m-ai corectat"))
Alte întrebări interesante