uses crt;
var i,m,k,num,numm,nn:integer;
x:array[1..10000] of integer;
y:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива x(m)');
readln(m);
writeln('Введите размер массива y(k)');
readln(k);
writeln('Введите элементы массива x(m)');
FOR i := 1 TO m do
begin
readln(x[i]);
end;
writeln('Введите элементы массива y(k)');
FOR i := 1 TO k do
begin
readln(y[i]);
end;
FOR i := 1 TO m do
begin
IF x[i] = 0 THEN num := num + 1;
end;
FOR i := 1 TO k do
begin
IF y[i] = 0 THEN numm := numm + 1;
end;
if num>numm then nn:=numm else nn:=num;
writeln('Общее количество нулевых элементов в двух массиваx ', nn);
end.