Форум программистов, компьютерный форум, киберфорум
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...
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31246 / 20425 / 7961
Регистрация: 22.10.2011
Сообщений: 35,464
Записей в блоге: 6
17.11.2014, 16:01 0

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

17.11.2014, 16:01. Показов 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
28
29
30
31
32
33
34
const
  n = 9;
  m = 10;
 
var
  d: array[1..n, 1..m] of integer;
  a: array[1..m] of integer;
  i, j, max: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      d[i, j] := random(100);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(d[i, j]:4);
    writeln;
  end;
 
  for j := 1 to m do // Начало
  begin
    max := d[1, j];
    for i := 1 to n do
    begin
      if max < d[i, j] then max := d[i, j]
    end;
    a[j] := max;
  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, 16:01
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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