Найти количество нулевых элементов массива А (16)

Question

Информатика

Ноня

27 июля, 05:28

Найти количество нулевых элементов массива А (16)

+3

Ответы (1)

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

Руся · Answer 1

Var

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

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

begin

n: = 0;

for i: = 1 to 16 do

begin

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

readln (A[i]) ;

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

end;

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

end.