Question

Имеется массив B(10) из целых чисел. Найти количество этого массива, больших 7 и кратных 4.Паскаль​

Answer 1

const

 n=10;

var

 b: array [1..n] of integer;

 count,sum,pr,i:integer;

begin

 count:=0; sum:=0; pr:=1;

 for i:=1 to n do

   begin

     b[i]:=random(101)-50;

     write(b[i]:4);

     if (b[i] > 7) and (b[i] mod 4 = 0) then

       begin

         inc(count);

         sum:=sum+b[i];

         pr:=pr*b[i];

       end;

   end;

 writeln;

 if count > 0 then

   begin

     writeln('Count: ',count);

     writeln('Summa: ',sum);

     writeln('Proizvedenie: ',pr);

   end

     else writeln('Takix net');

end.