Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Определить размножение хомяков https://www.cyberforum.ru/ pascalabc-net/ thread1302897.html
нужна помощь пытаю написать свою первую программу но еще совсем мало знаю,а теория уже надоела Вот что уже написал: program калькулятор хомяков; uses crt; var a , b...
PascalABC.NET Подсчитать количество чисел, кратных 3 лежащих на побочной диагонали
Ввести с клавиатуры одно или два целых числа N и M. Создать динамический двумерный массив размера N*M. Заполнить получившийся массив случайными числами и подсчитать количество чисел, кратных 3...
PascalABC.NET В квадратной матрице найти сумму элементов строки, у которой элемент на главной диагонали отрицательный https://www.cyberforum.ru/ pascalabc-net/ thread1302717.html
В вещественной квадратной матрице найти сумму элементов той строки, у которой элемент, принадлежащий главной диагонали, отрицательный, или наибольший элемент в строке, если диаго-нальный элемент –...
PascalABC.NET Обработка и модификация одномерных числовых массивов Дана последовательность из 100 различных целых чисел. Найти среднее арифметическое значение чисел, расположенных между максимальным числом и минимальным числом (в сумму включить и оба этих числа). https://www.cyberforum.ru/ pascalabc-net/ thread1302716.html
Составить программу, которая строит таблицу значений функций PascalABC.NET
Помогите пожалуйста составить программу, которая строит таблицу значений функций. Количество строк в таблице n, начальное значение аргумента х0 и шаг изменения аргумента step вводятся программистом....
PascalABC.NET Построение, преобразование и обработка матриц 1.Даны целочисленные матрицы размера н*м и к*1 для каждого столбца определить сколько раз в нем меняется знак и определить среди этих значений максимальное. 2.В данных действительных матрицах... https://www.cyberforum.ru/ pascalabc-net/ thread1302282.html
PascalABC.NET Заполнить динамический массив, и подсчитать количество отрицательных чисел в столбцах с четным номером https://www.cyberforum.ru/ pascalabc-net/ thread1302197.html
Ввести с клавиатуры одно или два (в зависимости от варианта) целых числа N и M. Создать динамический двумерный массив размера N*M. Заполнить получившийся массив случайными числами и подсчитать...
PascalABC.NET Перемещать прямоугольник по диагонали с заданным шагом и задержкой в полторы секунды
В общем прямоугольник я построил,закрасил его и по диагонали расставил,но я не знаю команды,которые бы скрывали мой предыдущий треугольник или может мне вообще не нужно было столько много их...
PascalABC.NET Ошибка : Нельзя преобразовать тип array [1..8] of integer к integer Дана целочисленная матрица В размером 5х8. Получить массив С из 0 и 1, в котором Ci=1, если в i –ой строке матрицы есть хотя бы один отрицательный элемент, и Ci=0 в противном случае. const n=5;... https://www.cyberforum.ru/ pascalabc-net/ thread1302062.html PascalABC.NET Лабораторна робота 8 1. Дано массив А, элементами которого есть n действительных чисел.Найти элемент, значение которого ближе к указанному числу Х. 2. Дана матрица А n*(n*1), одномерные массивы B(n+1), C(n+1),... https://www.cyberforum.ru/ pascalabc-net/ thread1302024.html
PascalABC.NET Поменять местами элементы массива: 1-2, 3-4, 5-6
Поменять местами элементы массива следующим образом: 1-й со 2-м, 3 с 4, 5 с 6, 7 с 8 и 9 с 10. const n=10; type mas=array of integer; var line:mas; i,s:integer; begin randomize;
PascalABC.NET Найти средние геометрические нечетных элементов каждой строки матрицы, результат записать в одномерный массив https://www.cyberforum.ru/ pascalabc-net/ thread1301927.html
Program lab5_2; Uses Crt; Type matr = array of integer; mas = array of integer; Var a:matr; b:mas; i,j,jmax,amax:integer; Begin clrscr; writeln('Введите матрицу:'); for i:=1 to 5 do for...
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
17.11.2014, 15:56 0

Создание массива из максимального элемента в столбце матрицы - PascalABC.NET - Ответ 6862848

17.11.2014, 15:56. Показов 572. Ответов 2
Метки (Все метки)

Ответ

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
const
n=9;
m=10;
var
d:array[1..n,1..m] of integer;
a:array[1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    d[i,j]:=random(100);
    write(d[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to m do //по всем столбцам
 begin
  a[j]:=1; //пусть позиция макс=1
  for i:=2 to n do//по строке
  if d[i,j]>d[a[j],j] then a[j]:=i;//если есть больше, то меняем значение позиции
 end;
writeln;
for j:=1 to m do
write(a[j]:4);
end.


Вернуться к обсуждению:
Создание массива из максимального элемента в столбце матрицы PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2014, 15:56
Готовые ответы и решения:

Замена максимального элемента в столбце матрицы
Дана матрица размера 7 x 5. Если кол-во положительных элементов столбца больше количества...

Определение максимального элемента в каждом столбце матрицы
Помогите составить программу??? ничего не получается!!!!!! Нужно составить программу определения...

Нахождение максимального элемента в каждом столбце матрицы А (N,N)
Составить программу нахождения максимального элемента в каждом столбце матрицы А(N,N).

Определение максимального элемента матрицы в заданном столбце
Ребят, прошу помощи, надо срочно написать программу для выполнения задачи с таким условием:...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 15:56

нахождение минимального и максимального элемента в каждом столбце матрицы
Организовать нахождение минимального и максимального элемента в каждом столбце матрицы случайных...

Найти в каждом столбце матрицы индексы максимального элемента
разработать алгоритм обработки двумерного массива размера nxm.Числа n и m,a также элементы массива...

Создать функцию для поиска максимального элемента в каждом столбце матрицы
Всем добрый день, нужна помощь в написании программы: Дан массив 4х4, надо создать функцию для...

Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы
Составить программу определения максимального элемента в каждом столбце и диагоналях матрицы...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.