Користувач вводить два числа. Якщо вони не рівні 10 і перше число парне, то вивести їх суму, інакше вивести їхнє множення. Язык C#
218
410
Ответы на вопрос:
Type m = array[,] of integer; // двумерный динамический v = array[1..2] of integer; // одномерный статический function npos(pm: m): integer; var i, j, p: integer; begin p : = 0; for i : = 0 to length(pm, 0) - 1 do for j : = 0 to length(pm, 1) - 1 do if pm[i, j] > 0 then p : = p + 1; npos : = p end; function nneg(pm: m): integer; var i, j, p: integer; begin p : = 0; for i : = 0 to length(pm, 0) - 1 do for j : = 0 to length(pm, 1) - 1 do if pm[i, j] < 0 then p : = p + 1; nneg : = p end; procedure getv(a: m; var c: v); begin c[1] : = npos(a); c[2] : = nneg(a) end; procedure initm(var a: m); var i, j: integer; begin for i : = 0 to length(a, 0) - 1 do for j : = 0 to length(a, 1) - 1 do a[i, j] : = random(100) - 50 end; procedure printm(a: m); var i, j: integer; begin for i : = 0 to length(a, 0) - 1 do begin for j : = 0 to length(a, 1) - 1 do write(a[i, j]: 4); writeln end end; var a1, a2, a3: m; b1, b2, b3: v; n1, m1, n2, m2, n3, m3: integer; begin randomize; writeln('введите число строк и столбцов массива'); readln(n1, m1); setlength(a1, n1, m1); initm(a1); writeln('массив а1'); printm(a1); getv(a1, b1); writeln('количество положительных ', b1[1], ', количество отрицательных ', b1[2]); writeln('введите число строк и столбцов массива'); readln(n2, m2); setlength(a2, n2, m2); initm(a2); writeln('массив а2'); printm(a2); getv(a2, b2); writeln('количество положительных ', b2[1], ', количество отрицательных ', b2[2]); writeln('введите число строк и столбцов массива'); readln(n3, m3); setlength(a3, n3, m3); initm(a3); writeln('массив а3'); printm(a3); getv(a3, b3); writeln('количество положительных ', b3[1], ', количество отрицательных ', b3[2]); end. тестовый прогон: введите число строк и столбцов массива 3 3 массив а1 6 11 -46 24 -41 36 44 9 18 количество положительных 7, количество отрицательных 2 введите число строк и столбцов массива 2 4 массив а2 37 -4 -2 43 -18 36 0 44 количество положительных 4, количество отрицательных 3 введите число строк и столбцов массива 5 2 массив а3 5 -15 49 -1 -40 35 -33 -9 -22 -31 количество положительных 3, количество отрицательных 7
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
knepsuhell23.06.2023 01:47
-
skubelinavika20.02.2023 23:23
-
soffi200603.02.2020 17:27
-
Vikateplova7214.12.2022 02:50
-
ImHappy10219.11.2021 11:41
-
6г56г19.01.2020 00:20
-
fistahka33615.10.2022 10:38
-
ЁшкинКот247923.11.2021 14:05
-
алина67732315.08.2022 22:48
-
Ксюша880012.07.2021 14:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.