Задача: В заданном одномерном массиве, состоящем из 10 целых чисел, подсчитать количество элементов равных нулю. Заполнение массива - любым способом. Выполнить в Паскале или в тетради.
Ответ
0/5
(0 оценок)
1
Мозг
Отвечающий
Ответ:
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.