Question

75 баллов
На паскале
Для N чисел, заданных случайным образом [-25;20], подсчитать сумму и количество чётных чисел, кратных 3.

Answer 1

const

    N=20;

var

  i,r:integer;

  m: array [1..N] of integer;

begin

randomize;

write('Исходный массив: ');

for i:=1 to N do

 begin

   m[i]:=random(100)+1;

   write(m[i],' ');

 end;

writeln;

write('Четные элементы массива: ');

for i:=1 to N do

 if not odd(m[i]) then

   begin

     write(m[i],' ');

     inc(r,m[i]);

   end;

writeln;

write('Сумма четных элементов массива: ',r);

end.