Question

Varianta 2, va rog.​

Answer 1

program varianta2vector;

var a:array[1..100]of integer;

   n, i, div4, suma:integer;

begin

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

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

 div4:=0; suma:=0;

 for i:=1 to n do

   begin

     read(a[i]);

     if a[i] mod 4=0 then div4:=div4+1;

     if (a[i]>0)and(a[i] mod 7=0) then suma:=suma+a[i];

   end;

writeln('a) ',div4,' elemente sunt divizibile cu 4');

writeln('b) suma elementelor pozitive si divizibile cu 7 este ',suma);

end.