Определить сколько нулевых элементов в массиве - вопрос №3963876 от nikita1241 21.01.2023 16:13

Question

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

nikita1241 · Answer

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.