Вычислить количество элементов массива, равных нулю - Turbo Pascal (35294)

Формулировка задачи:

В одномерном массиве,состоящем из n вещественных элементов,вычислить,количество элементов массива,равных нулю;

Код к задаче: «Вычислить количество элементов массива, равных нулю - Turbo Pascal (35294)»

textual
uses crt;
 
const
  nmax = 20;
 
var
  A : array [1..nmax] of real;
  i, n : integer;
  count : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество элементов (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do Read(A[i]);
  count := 0;
  for i := 1 to n do if A[i] = 0 then inc(count);
  Writeln('Количество нулевых элементов: ', count);
  Readln;
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ