gistfile1.txt

Const n=8;
Var a:array[1..n] of integer;
	i,k: integer;
begin
	writeln('Введите 8 чисел, после каждого числа нажимайте Enter'); 
	For i:=1 to n do read(a[i]); readln;
	k:=0;
	For i:=1 to n do
		if a[i] =0 then begin
			k:=k+1;
			end;
	writeln('в масиве ', k, ' нульових элеменьтив'); 
end.