Регистрация Спросить otvet5GPT
n1myFurry21
28.08.2022 09:35
Информатика
Есть ответ 👍

Даны масивы a(10) b(15). напечатать массив в котором произведение положительных элиментов больше. паскаль с подпрограммы .процедуры, ввод с клавиатуры

236
385
Посмотреть ответы 3

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

DOMINOSHKAWWWRU
DOMINOSHKAWWWRU
4,5(23 оценок)
Type   v = array of integer; function prodpos(a: v): longint; var   i: integer; begin   result : = 1;   foreach var p: longint in a do       if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var   i: integer; begin   writeln(title, '(', length(a, 0), '). вводите элементы.');   for i : = 0 to length(a, 0) - 1 do       read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin   setlength(a, dim);   initmas(a, title); end; const   n1 = 10;   n2 = 15; var   a, b: v; begin   getmas(a, n1, 'массив а');   getmas(b, n2, 'массив b');   writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96
annaozerkevich
annaozerkevich
4,6(51 оценок)
Procedure vvod(var q: mas; p: integer); var i: integer; begin for i: =1 to p do read(q[i]); end; program obrab(n: mas; w: integer; var max: real; ); var i: integer; begin max: =1; for i: =1 to w do begin if n[i]> 0 then max: =max*n[i]; end; end; program sravnenie(u: mas; o: mas; m.r: integer; maxa,maxb: real); var i,j: integer begin if maxa> maxb then begin for i: =1 to m do write(u[i]); end   else begin for i: =1 to r do write(o[i]); end; end; begin writeln('vvedite kol-vo elementov mas1'); readln(n); vvod(a,n); writeln('vvedite kol-vo elementov mas2'); readln(l); vvod(b,l); obrab(a,n,max1); obrab(b,l,max2); sravnenie(a,b,n,l,max1,max2); end.
Sanyapro2002
Sanyapro2002
4,7(51 оценок)

1-1

2-1

3-2

4-3

5-2

6-н

7-2

8-4.6

9-3

10-н

11-1

12-3

НЕ ТОЧНО

Объяснение:

Я СТАРАЛАСЬ

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS