profile
Опубликовано 5 лет назад по предмету Информатика от Lola19950106

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

  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.

Самые новые вопросы