На курсах лингвистики преподают иностранные языки: А(английский); К(китайский); Н(немецкий); Ф(французский) и Я(японский). Результаты проведённой контрольной работы по пятибальной системе были занесены в базу данных. Всего база содержит 3530 записей. Количество записей N, удовлетворяющих различным запросам, приведено в таблице:
140
480
Ответы на вопрос:
Type arr = array[1..10] of integer; {создаем новый тип, являющийся массивом} var i: integer; s: real; r,q,p: arr; x: array[0..3] of integer; function sum(a: arr): integer; {функция вычисления суммы элементов массива} var i: integer; begin foreach i in a do {вычисляем сумму элементов по заданному правилу} if (i> =2) and (i< =4) then result : =result+i end; {результатом функции будет сумма} begin randomize; {заполняем массивы случайными числами} for i: =1 to 10 do begin r[i]: =random(10); q[i]: =random(10); p[i]: =random(10) end; write('r: '); {распечатываем содержимое массивов на экране} for i: =1 to 10 do write(r[i],' '); writeln; write('q: '); for i: =1 to 10 do write(q[i],' '); writeln; write('p: '); for i: =1 to 10 do write(p[i],' '); writeln; {а тут собственно само решение } x[1]: =sum(r); {передаем в ф-цию sum массив r, она считает сумму и записывает в х1} writeln('x[1]=',x[1]); x[2]: =sum(q); {передаем в ф-цию sum массив q, она считает сумму и записывает в х2} writeln('x[2]=',x[2]); x[3]: =sum(p); {передаем в ф-цию sum массив p, она считает сумму и записывает в х3} writeln('x[3]=',x[3]) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
натаха3722.06.2020 18:34
-
Икари30120217.03.2022 16:06
-
maximbelov0029.06.2021 04:23
-
7Karim77731.01.2022 03:26
-
mari20042311.04.2021 22:07
-
arina27031623.06.2021 23:36
-
hilola37823.04.2020 18:16
-
Zolotareva198127.09.2021 15:02
-
perizatvip06.12.2022 01:24
-
madinatrtyakov22.01.2023 16:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.