Составить программу, которая в массиве аn, заполненная случайными числами, где есть нулевые, полож., отрицат. элементы массива. найти кол-во отрицат. элементов массива. qb64
111
224
Ответы на вопрос:
Input n dim a(n) randomize timer for i = 1 to n a(i) = int(rnd * 20) - 10 if a(i) < 0 then s = s + 1 print a(i); " "; next i print print s
Program asd; var a,b: array [1..250,1..250] of integer; i,j,n,m,k: integer; begin write('введите n: '); readln(n); write('введите m: '); readln(m); for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; writeln; for i: = 1 to n do for j: = 1 to m do begin if a[i,j] mod 2=1 then inc(k); end; if n=m then begin writeln('транспонирование: '); for i: =1 to n do begin for j: =1 to m do begin write(a[j,i]: 3); b[i,j]: =a[i,j]; end; writeln; end; writeln; end else writeln('кол-во нечетных элементов: ',k); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
bobina224.11.2022 19:44
-
koren2713.09.2022 04:59
-
rockmus22.11.2021 14:47
-
helpplizzzz09.04.2022 15:49
-
keklolcheburek124318.05.2023 01:48
-
Mouse12530.11.2020 15:55
-
alinasolnishko2101.04.2021 08:18
-
Msскрытность07.06.2022 20:51
-
elenakovaleskau07.04.2022 08:46
-
nastyakarmazina101.10.2021 18:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.