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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!