Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел.

[Richik123]

Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел.Подсчёт количества четных чисел оформить в виде подпрограммы.заполнение массивов и вывод на печать оформить в виде подпрограмм.

[Leshii]

Uses crt;
var 
   A: array [1..15] of integer;
   B: array [1..17] of integer;
   С: array [1..10] of integer;
   i: integer;

Procedure Fill_mas;
var i: integer;
begin
randomize;
writeln(Massive A[i]: ');
for i:=1 to 15 do begin
     a[i]:=random(10)-4;
     write(a[i]:3);
end;
writeln(Massive B[i]: ');
for i:=1 to 17 do begin
     b[i]:=random(10)-4;
     write(a[i]:3);
end;
writeln(Massive C[i]: ');
for i:=1 to 10 do begin
     c[i]:=random(10)-4;
     write(c[i]:3);
end;
end;

Procedure chet;
var count1, count2, count3: integer;
begin
for i:=1 to 15 do begin
     if a[i] mod 2 = 0 then inc(count1);
end;
for i:=1 to 17 do begin
     if b[i] mod 2 = 0 then inc(count2);
end;
for i:=1 to 10 do begin
     if c[i] mod 2 = 0 then inc(count3);
end;
if (count1>count2) and (count1>count3) then writeln(' max is count 1')
 else if (count2>count1) and (count2>count3) then writeln(' max is count2 ')
  else writeln(' max is count 3');
end;

{ процедура вывода на печать оформи сам }


begin
clrscr;
Procedure Fill_mas;
Procedure chet;
{ процедура вывода на печать }
readkey;
end.