Заполнить двумерный массив размером 2 на 2.Значения элементов массива вводятся с клавиатуры. Посчитать и вывести на экран количество (число) ячеек массива которые были заполнены значениями 0.

program HelloWorld;

var bb: array[1..2,1..2] of integer;

a: integer;

i: integer;

j: integer;

begin

a:=0;

for i:=1 to 2 do

for j:=1 to 2 do begin

read ( bb[i,j] );

end;

for i:=1 to 2 do

for j:=1 to 2 do begin

if bb[i,j]=0 then begin

a:=a+1;

end

end;

write (a) ;

end.

Объяснение: