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

@DoomseeSA · Регистрация: 19.06.2018

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

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

@bormant · 24.06.2018, 12:03

Pascal

function vMax(const a: array of Integer): Integer;
var mx, i: Integer;
begin
  mx:=a[Low(a)]; for i:=Succ(Low(a)) to High(a) do if mx<a[i] then mx:=a[i];
  vMax:=mx;
end;
...
 
  mn:=vMax(a[1]); for i:=2 to m do begin t:=vMax(a[i]); if mn>t then mn:=t; end;
 
  t:=Abs(a[1,1]); im:=1; in:=1;
  for i:=1 to m do for j:=1 to n do if t<Abs(a[i,j]) then begin t:=Abs(a[i,j]); im:=i; jm:=j; end;
  Inc(a[im,jm],mn);
 
  WriteLn('A''=');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:6); WriteLn; end;

@DoomseeSA 0 / 0 / 0 Регистрация: 19.06.2018 Сообщений: 21
		1
	Найти минимальный среди максимальных элементов строк матрицы и добавить его к максимальному по ABS элементу матрицы 20.06.2018, 00:52. Показов 1410. Ответов 1 Метки нет (Все метки) Найти минимальный среди максимальных элементов строк матрицы и добавить его к максимальному по ABS элементу матрицы. 0

	24.06.2018, 12:03

Опции темы

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

Решение