Question

Prima varianta , va rog .​

Answer 1

program vector;

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

   n, i, div3, suma:integer;

begin

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

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

 div3:=0; suma:=0;

 for i:=1 to n do

   begin

     read(a[i]);

     if a[i] mod 3=0 then div3:=div3+1;

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

   end;

writeln('a) ',div3,' elemente sunt divizibile cu 3');

writeln('b) suma elementelor negative si divizibile cu 5 este ',suma);

end.