Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 8

Сформировать два массива с количествами положительных и отрицательных элементов в каждом столбце матрицы

07.09.2020, 16:02. Показов 2374. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана прямоугольная матрица размерности MxN. Сформировать два одномерных массива: в первый занести количество положительных элементов в каждом столбце; во второй – количество отрицательных элементов в каждом столбце матрицы.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.09.2020, 16:02
Ответы с готовыми решениями:

Данная матрица размерности MxN
Данная матрица размерности MxN. Найти элемент, который является максимальным в своей строке и минимальным в своем столбце. Если такой...

Дана прямоугольная матрица x[1.m,1.n] вещественных чисел
Дана прямоугольная матрица x вещественных чисел. А.В строке , сумма элементов которой минимальна , найти среднее арифметическое...

Дана матрица MxN, получить другую удалив из исходной средний столбец.
Посмотрите пожалуйста, она вроде легкая, но у меня никак не получается что-то....

1
Модератор
10442 / 5734 / 3406
Регистрация: 17.08.2012
Сообщений: 17,447
08.09.2020, 07:55
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
const
  mx = 20;
var
  a: array[1..mx, 1..mx] of integer;
  p, o: array[1..mx]of integer;
  i, j, k, m, n: integer;
begin
  repeat
    write('m in [1..', mx, '];  m = ');
    readln(m);
  until m in [1..mx];
  repeat
    write('n in [1..', mx, '];  n = ');
    readln(n);
  until n in [1..mx];
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i, j] := 9 - random(19);
          write(a[i, j]:3);
          if a[i, j] > 0 then inc(p[j])
          else
            if a[i, j] < 0 then inc(o[j])
        end;
      writeln
    end;
  writeln('Количество положительных элементов в каждом столбце матрицы:');
  for i := 1 to n do write(p[i]:3);
  writeln;
  writeln('Количество отицательных элементов в каждом столбце матрицы:');
  for i := 1 to n do write(o[i]:3);
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.09.2020, 07:55
Помогаю со студенческими работами здесь

Дана целочисленная матрица размерности (n x n)
Доброе время суток. Не получается решить(((Помогите.Заранее спасибо Дана целочисленная матрица размерности (n x n). 3. Определить...

Дана целочисленная прямоугольная матрица. Определить для неё обратную матрицу
Первое задание оформите, пожалуйста, в отдельной теме. Соблюдайте Правила! 2) Дана целочисленная прямоугольная матрица. Определить для...

Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента.
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента. Характеристикой...

Дана матрица А размерности n×n. Найти и вывести ту строку в этой матрице, которая содержит наибольшее количество четных чисел.
Помогите плиз написать программу на паскале: Дана матрица А размерности n×n. Найти и вывести ту строку в этой матрице, которая содержит...

Дано матрицу размерности MxN. Найти сумму наибольших значений элементов ее строк
Дано матрицу размерности MxN. Найти сумму наибольших значений элементов ее строк.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru