Составить программу формирующую 3 одномерных массива.первые 2 заполняются случайными числами от 1 до 10.3-ий массив представляет из себя сумму первых двух(а1+b1; a2+b2).использовать минимальное количество циклов
188
471
Ответы на вопрос:
Var a, b, c: array [1..10] of integer; i: integer; begin for i: =1 to 10 do begin a[i]: = random(10)+1; writeln('a[', i, '] = ', a[i], ' '); b[i]: = random(10)+1; writeln('b[', i, '] = ', b[i], ' '); c[i]: =a[i]+b[i]; writeln('c[', i, '] = ', c[i], ' '); end; end.
Var m: array [1 .. 4, 1 .. 4] of integer; i, j, k, sum: integer; count: byte; begin for i : = 1 to 4 do begin for j : = 1 to 4 do begin m[i, j] : = random(16); write(m[i, j]: 4); end; writeln; end; for i : = 1 to 4 do begin sum : = 0; for j : = 1 to 4 do sum : = sum + m[j, i]; for j : = 1 to 4 do if (m[j, i] > sum - m[j, i]) then inc(count); end; writeln('количество особых элементов = ', count); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
shydik3711.03.2020 08:38
-
ALENAFOKS04.12.2021 04:14
-
аннаксения24.02.2022 15:54
-
dashko4etckowa18.04.2021 22:00
-
26Violetta2609.09.2022 15:43
-
figakuvesi06.02.2023 02:01
-
Prls20.01.2021 09:38
-
KaguraChan22.11.2020 09:25
-
trubadurov0120.09.2020 22:37
-
Хулиганочка1321.09.2022 00:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.