Добрый день. Нужна помощь в паскале. Необходимо составить программу подсчёта количества...

Question

Добрый день. Нужна помощь в паскале.
Необходимо составить программу подсчёта количества нулевых элементов в массиве А(100).
Буду премного благодарен. Спасибо.

Answer 1

Const
  n=100; { размер массива }
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  { заполняем массив случайными значениями }
  Randomize;
  k:=0;
  Writeln('Элементы массива');
  for i:=1 to n do
    begin
    a[i]:=Random(41)-20;
    Write(a[i],' ');
    if a[i]=0 then Inc(k)
    end;
  Writeln;  
  Writeln('Нулевых элементов: ',k)
end.