Вывести столбец матрицы, в котором расположено максимальное значение

@Ofnya · Регистрация: 04.05.2017

Студворк — интернет-сервис помощи студентам

Вывести на печать элементы столбца матрицы, в котором расположено максимально значение.

@VladimirD · 04.05.2017, 14:16

Ofnya,

Pascal

program prog;
const n=10;m=15;
  var a:array [1..n,1..m] of integer;
      i,j,mi,mj:integer;
begin
  randomize;
  for i:=1 to n do 
    begin
      for j:=1 to m do begin a[i,j]:=random(100);write(a[i,j]:3);end;
      writeln;
    end;
  writeln;
  //ищем максимум  
  mi:=1;mj:=1;
  for i:=1 to n do 
    for j:=1 to n do 
      if a[i,j]>a[mi,mj] then begin mi:=i;mj:=j;end;
  //выводим столбец матрицы     
  for i:=1 to n do writeln(a[i,mj]:4);                     
end.

@bormant · 05.05.2017, 07:42

VladimirD,

Pascal

16	for j:=1 to m do

Для матрицы эффективнее запоминать максимум и столбец вместо строки и столбца.

@VladimirD · 05.05.2017, 07:49

Спасибо за совет и найденную ошибку.

@Ofnya 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 15
		1
	Вывести столбец матрицы, в котором расположено максимальное значение 04.05.2017, 13:55. Показов 2814. Ответов 3 Метки нет (Все метки) Вывести на печать элементы столбца матрицы, в котором расположено максимально значение. 0

@VladimirD 80 / 80 / 78 Регистрация: 30.12.2015 Сообщений: 256
	05.05.2017, 07:49	4
	Спасибо за совет и найденную ошибку. 0

Опции темы

Вывести столбец матрицы, в котором расположено максимальное значение

Решение