program zapoln_mas;
var
i, j, k: integer;
tab: array [1..4, 1..5] of integer;
begin
// блок заполнения массива
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
tab[i, j] := random(2);
write(tab[i, j]:3);
end;
writeln();
end;
// блок поиска элементов, удовлетворяющих условию
for i := 1 to 4 do
for j := 1 to 5 do
if tab[i, j] = 0 then k := k + 1;
writeln('Найдено элементов: ', k);
end.