Дано: массивы r(10),q(10),p(10). сформировать массив x(3),где x(1) - сумма элементов массива r, значения которых лежат в интервале [2; 4]; x(2) - то же для массива q; x(3) - то же для массива p. вычисление суммы элементов массива, значения которых лежит в интервале [2; 4], оформить в виде подпрограммы и составить блоксхему pascalabc необходимо составлять программу "детским языком(начальным)",а подпрограмму через procedure,вот. прошу .заранее =)

101

306

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

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

Бантюсик

Информатика

4,7(97 оценок)

Const a=10; type mas=array[1..a] of integer; mas1=array[1..3] of byte; var r, q, p: mas; x: mas1; i: byte; procedure form(var r, q, p: mas); var sr, sq, sp: byte; begin sr: =0; sq: =0; sp: =0; for i: =1 to a do begin if (r[i]> =2) and (r[i]< =4) then sr: =sr+r[i]; if (q[i]> =2) and (r[i]< =4) then sq: =sq+r[i]; if (p[i]> =2) and (r[i]< =4) then sp: =sp+r[i]; end; x[1]: =sr; x[2]: =sq; x[3]: =sp; writeln('massiv x'); for i: =1 to 3 do write(x[i]: 3); end; begin randomize; for i: =1 to a do begin r[i]: =random(10); q[i]: =random(10); p[i]: =random(10); end; writeln('massiv r'); for i: =1 to a do write(r[i]: 3); writeln; writeln('massiv q'); for i: =1 to a do write(q[i]: 3); writeln; writeln('massiv p'); for i: =1 to a do write(p[i]: 3); end.

Danielkz02

Информатика

4,8(78 оценок)

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

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

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

Задай свой вопрос

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

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

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

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

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

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

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