В заданном одномерном массиве, состоящем из n целых чисел,
подсчитать количество нулей.
P.S. Язык Паскаль, писать через for, var, if.

Программа считывает количество элементов массива, затем сами элементы и подсчитывает нули.

program CountZeros;
var
n, i, count: integer;
a: array[1..1000] of integer;
begin
readln(n);
count := 0;
for i := 1 to n do
begin
read(a[i]);
if a[i] = 0 then
count := count + 1;
end;
writeln(count);
end.

0 0 Пожаловаться