profile

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

Задан массив А(1:20). Найти произведение всех его ненулевых элементов. На паскале через массивы!)

  1. Ответ
    Ответ дан Аккаунт удален
    var
      i,p:integer;
      a:array[1..20]of integer;
    begin
    writeln('Массив: ');
    p:=1;
    for i:=1 to 20 do
      begin
      a[i]:=random(10);
      write(a[i],' ');
      if a[i]<>0 then p:=p*a[i];
      end;
    writeln;
    writeln('Произведение ненулевых: ',p);
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      я сначала не ту задачу решил. Исправь

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Danon227
Биология - 1 месяц назад

Соотнесите фазы мейоза и их характеристику. профаза 1 метафаза 1 анафаза 1 телофаза 1 профаза 2 метафаза 2 анафаза 2 телофаза 2 а)гомологичные хромосомы попарно располагаются на экваторе, формируется веретено деления б)хромосомы становятся видимыми, расхожление центриолей к полюсам. происходит коньюгация кроссинговер, ядерная оболочка исчезает в) формируется ядерная оболочка, веретено деления разрушается. образуется две клетки г)возникают хромосомные рекомбинации, гомологичные хромосомы, состоящие из 2 хроматин, расходятся к полюсам д) разрушается ядерная оболочка, формируется веретено деления, каждая хромосома состоит из двух хроматид е) хроматиды отходят к противоположным полюсам ж) формируется ядерная оболочка, цитокинез, образуется 4 новых клетки з)хромосомы располагаются в плоскости экватора прошу помогите пожалуйста (

Хаааа
Математика - 1 месяц назад
Хаааа
Математика - 1 месяц назад