Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ZOTAC
1 / 1 / 2
Регистрация: 21.02.2013
Сообщений: 20
#1

Найти максимум всех минимальных элементов матрицы по столбцам - Pascal ABC

07.03.2013, 17:11. Просмотров 664. Ответов 1
Метки нет (Все метки)

Дана матрица A размером n на n. Найти максимум всех минимальных элементов матрицы по столбцам.

Добавлено через 3 часа 3 минуты
Решить нужно через процедуру
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 17:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти максимум всех минимальных элементов матрицы по столбцам (Pascal ABC):

В заданной матрице A (nxn) найдите максимум из всех минимальных элементов матрицы по столбцам
В заданной матрице A (nxn) найдите максимум из всех минимальных элементов...

Найти сумму минимальных элементов всех столбцов матрицы
Дана квадратная матрица А размером N*N. Ввести елементы матрицы А и обсчитать...

Найти сумму минимальных элементов всех столбцов матрицы
Дана квадратная матрица А размером N*N. Ввести елементы матрицы А и обсчитать...

Найти произведение и сумму максимальных и минимальных элементов матрицы
Найти произведение и сумму максимальных и минимальных элементов

Найти максимум среди элементов массива, вычесть из всех нечётных элементов массива единицу и поделить на два
Создайте массив А длины 10. Заполните его с клавиатуры целыми числами. Выведите...

В заданной матрице найти минимум сумм абсолютных величин элементов матрицы по столбцам
в заданной матрице a(n*m) найдите минимум всех сумм абсолютных величин...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
07.03.2013, 17:45 #2
Лучший ответ Сообщение было отмечено ZOTAC как решение

Решение

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
const
  nmax=20;
  
type
  tAr1=array[1..nmax,1..nmax] of integer;
  tAr2=array[1..nmax] of integer;
  
procedure minim(a: tAr1; var b: tAr2; n: byte);
var i,j,imin: byte;
begin
  for j:=1 to n do
  begin
    imin:=1;
    for i:=2 to n do
      if a[i,j]<a[imin,j] then imin:=i;
    b[j]:=a[imin,j];
  end;
  writeln('Минимальные элементы по столбцам:');
  for j:=1 to n do
    writeln(j,'. ',b[j]);
end;
 
procedure maxim(b: tAr2; n: byte);
var j: byte;
    max: integer;
begin
  max:=b[1];
  for j:=2 to n do
    if b[j]>max then max:=b[j];
  writeln('Максимальный среди них = ',max);
end;
 
var
  a: tAr1;
  b: tAr2;
  n,i,j: byte;
begin
  write('Введите размер матрицы: n = ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  minim(a,b,n);
  maxim(b,n);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 17:45
Привет! Вот еще темы с решениями:

Занести суммы элементов строк матрицы в массив, и найти в нем максимум
Подсчитать сумму элементов каждой строки и записать данные в новый массив....

Процедура и функция. Даны четыре матрицы. Найти произведение минимальных элементов над побочной диагональю
Помогите,пожалуйста решить задачу. Даны четыре матрицы A(5,5), B(5,5), C(5,5),...

Найти максимум среди сумм элементов диагоналей матрицы, которые параллельны главной диагонали
Для данной квадратной целочисленной матрицы найти максимум среди сумм...

Даны три матрицы A(4,3), B(3,3), C(5,3). Используя процедуру, упорядочьте все матрицы по возрастанию элементов по столбцам
Даны три матрицы A(4,3), B(3,3), C(5,3). Используя процедуру, упорядочьте все...


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

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

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