Ответы на вопрос:
Program n1; uses crt; const nn=1000; var m: array[1..nn,1..nn] of integer; n,i,j: integer; s: real; begin clrscr; randomize; //определяем размеры массива writeln('введите размерность'); readln(n); //заполняем массив рандомными числаслами for i: =1 to n do for j: =1 to n do m[i,j]: =random(100)-50; //выводим таблицу(массив) на экран for i: =1 to n do begin for j: =1 to n do write(m[i,j]: 4); writeln; end; //считаем среднее арифметическое столбцов и выводим номера for j: =1 to n do begin s: =0; {обнуляем переменную перед началом каждого вложенного цикла} for i: =1 to n do begin s: =s+m[i,j]; {считаем сумму элементов столбца} end; s: =s/n; {считаем среднее арифметическое} if s< 0 then write(j: 3); {проверяем условие } end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Lizaveta999908.11.2022 12:19
-
anatolibikov113.05.2023 00:06
-
неизвесный105.05.2020 19:27
-
Kazhimyrat021012.01.2020 08:30
-
kbbekvwo08.06.2023 10:21
-
Fansik3432427.05.2021 06:31
-
rdta23.01.2022 22:26
-
Sidhfvdksisvejcnswk01.11.2020 09:06
-
ната55555528.09.2021 03:28
-
alyonasajko23.11.2020 06:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.