Вопрос Составьте программу, которая подсчитывает количество нулуй в массиве К [10]

[Lombrex]

Составьте программу, которая подсчитывает количество нулуй в массиве К [10]

 

[SOsok]

print *,count(k == 0);end

 

[BooM]

x:=0;for i := 1 to 10 do if k=0 then x := x + 1; writeln(x);