Дан массив А содержащий только 1 и 0 массив заполняется через read и data определите количество нулей и единиц в этом массиве

program zz1;

const n = 3; / / задаем количество элементов в массиве

var i, j, k, v:integer; / / задаем переменные целого типа

a:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (a[i]);

for i:=1 to n do

if a[i] = 0 then k:=k+1 else v:=v+1; / / проверяем, если элемент массива равен нулю, то считаем один ответ, если не равен нулю, то другой

writeln (' количество нулей в массиве = ', k); / / выводим ответы

write (' количество единиц в массиве = ', v);

end.