Текст основной программы к задаче 14.

ProgramEx_14;

Uses MyMod, Crt;

Var k1, k2: byte;

A, B: Mas;

Begin

ClrScr;

Randomize;

Vvod (A); { ввод массива А }

Vivod(A); { вывод массива А }

Vvod (B); { ввод массива В }

Vivod(B); { вывод массива В }

k1:=Col1(A); { вычисление кол-ва четных в массиве А}

k2:=Col2(A); { вычисление кол-ва нечетных в массиве А }

if k1>k2 then begin { если четных больше }

Uvel(A, 10); Umen(A, 10); Vivod(A);

End;

k1:=Col1(B); { вычисление кол-ва четных в массиве В}

k2:=Col2(B); { вычисление кол-ва нечетных в массиве В }

if k1>k2 then begin { если четных больше }

Uvel(B, 10); Umen(B, 10); Vivod(B);

End;

Readln;

End.

Схема основной программы