var i, count : integer;
arr: array[1..10] of integer;
begin
write('Массив: ');
for i := 1 to 10 do
arr[i] := random(0, 5);
write(arr[i], ' ');
if arr[i] = 0 then inc(count);
end;
writeln();
write('Количество элементов равных нулю: ', count);
end.
var i, count : integer;
arr: array[1..10] of integer;
begin
write('Массив: ');
for i := 1 to 10 do
begin
arr[i] := random(0, 5);
write(arr[i], ' ');
if arr[i] = 0 then inc(count);
end;
writeln();
write('Количество элементов равных нулю: ', count);
end.