Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
алекс1995
-1 / 0 / 0
Регистрация: 25.01.2011
Сообщений: 35
#1

Найти максимальное значение каждого столбца матрицы

10.10.2011, 09:47. Просмотров 1029. Ответов 2
Метки нет (Все метки)

Найти максимальное знач каждого столбца
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2011, 09:47
Ответы с готовыми решениями:

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

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

Найти минимальное значение каждого столбца матрицы и записать их в одномерный массив А
Дан двумерный массив Х(6,6). Найти минимальное значение каждого столбца массива...

Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм
1. Дана действительная матрица размером n x m (n,m <10). Подсчитать сумму...

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

2
Puporev
Модератор
54384 / 41966 / 28987
Регистрация: 18.05.2008
Сообщений: 98,859
10.10.2011, 10:03 #2
Лучший ответ Сообщение было отмечено алекс1995 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a:array[1..20,1..20] of integer;
     n,m,i,j,mx:integer;
begin
//ввод матрицы, n-строки, m-столбцы
for j:=1 to m do
 begin
   mx:=a[1,j];
   for i:=1 to n do
   if a[i,j]>mx then mx:=a[i,j];
   writeln('Max stb ',j,'=',mx);
 end;
0
KillJoy
55 / 55 / 29
Регистрация: 21.09.2009
Сообщений: 313
Записей в блоге: 1
10.10.2011, 10:14 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var arr : array[1..3,1..3] of integer;
    i,j,max: integer;
begin
 randomize;
  for i:=1 to 3 do
   for j:=1 to 3 do
    arr[i,j] := Random(25);
 
  for i:=1 to 3 do begin
  max := arr[1,i];
   for j:=1 to 3 do 
   if  arr[j,i]  > max then
     max := arr[j,i];
       writeLn(' Max[',i,'] = ', max);
     end;
  end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2011, 10:14

Найти минимум каждого столбца матрицы
1. В одномерном массиве Y, состоящем из N целых элементов, вычислить: a)...

Найти сумму каждого столбца матрицы
Дана квадратная матрица: 1) Найти сумму каждого столбца матрицы и вывести...

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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