Определить сколько нулевых элементов в массиве

Question

Информатика

Ульяша

12 апреля, 07:03

Определить сколько нулевых элементов в массиве

+3

Ответы (1)

Знаете ответ?

Максимиан · Answer 1

Var

A: array [1 ... 10] of real;

i, n: integer; / / n - счетчик

begin

n: = 0;

for i: = 1 to 10 do

begin

writeln ('Введите число') ;

readln (A[i]) ;

if A[i] = 0 then n: = n + 1;

end;

writeln ('Количество нулевых элементов: ', n) ;

end.