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

Question

Информатика

Олимпия

24 июля, 00:23

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

+4

Ответы (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.