Регистрация Спросить otvet5GPT
DEM0KRAT
31.01.2020 21:21
Информатика
Есть ответ 👍

Решить на цикл с параметром. решения оформить как в паскале. 1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных 2)в фирме работают 5 сотрудников. какую сумму нужно заказать в банке для выплаты им заработной платы, если их зарплата меняется каждый месяц и задаётся бухгалтером с клавиатуры ? 3)задать 20 чисел.найти среднее произведение чисел, больших 8 и сумму чисел, некратных 15.

188
422
Посмотреть ответы 2

Ответы на вопрос:

romansyslikovp08d0y
romansyslikovp08d0y
4,8(44 оценок)
1- var      a: array[1..5] of integer;   s,p,k,i,c : integer; begin     for i: =1 to 5 do begin         write('ведите число ');       readln(a[i]);     end;     s: =0; c: =0;     p: =1; k: =0;     for i: =1 to 5 do begin         if   a[i]> 0 then begin s: =s+a[i]; c: =c+1; end;         if (a[i] mod 12)< > 0 then p: =p*a[i];           if (a[i]mod 2)=0 then k: =k+1;     end;     writeln('средняя сумма положительных чисел= ',s/c) ;     writeln('произведение чисел не кратных 12= ',p) ;     writeln('количество чётных чисел= ',k) ; end.можно сделать и с одним циклом. если надо - отпишись. 2расчёт с учётом того что у сотрудников разная зптоже можно сделать с одним   циклом.var      a: array[1..5] of integer;     i,zp: integer; begin    for i: =1 to 5 do begin    write('ведите зарплату сотрудника ',i,': ');     readln(a[i]);     end;   zp: =0;   for i: =1 to 5 do zp: =zp+a[i];   write('общая сумма=',zp);     end. 3var      a: array[1..20] of integer;     i,p,s,summ: integer; begin    for i: =1 to 20 do begin    write('ведите число ');     readln(a[i]);     end;   p: =1; s: =0; summ: =0;   for i: =1 to 20 do begin    if a[i]> 8 then   begin p: =p*a[i]; s: =s+1; end;     if (a[i]mod 15)< > 0 then summ: =summ+a[i];   end;   writeln('среднее произведение чисел больше 8= ',p/s);   write('семма чисел не кратных 15= ',summ);     end.и это тоже можно с одним циклом
Anna124212
Anna124212
4,4(100 оценок)
Подсчитать  количество   нечетных  чисел среди   данных n  чисел .

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS