Question

de elaborat un program care calculează într-un tabel de 30 de numere întregi, calculează suma elementelor pare de pe locurile impare.

Program Pascal

Answer 1

program sumaElemPare;

var v:array[1..30] of integer;

   i, suma:integer;

begin

 writeLn('introdu 30 de numere intregi:');

 for i:=1 to 30 do

   begin

     read(v[i]);

     if (v[i] mod 2 = 0) and (i mod 2 =1) then suma:=suma+v[i];

   end;

 writeln(' suma elementelor pare de pe locuri impare este ', suma);

end.