Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить функцию вычисления максимума)

@Maksis · Регистрация: 22.05.2013

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

@ermolay · 03.06.2013, 17:57

Pascal

const
  nmax=20;
  
type
  tAr=array[1..nmax,1..nmax] of integer;
  
function maxim(a: tAr; i,n: integer): integer;
var j,jm: integer;
begin
  jm:=1;
  for j:=2 to n do
    if a[i,j]>a[i,jm] then jm:=j;
  writeln(i,'. Max = a[',i,',',jm,'] = ',a[i,jm]);
  maxim:=a[i,jm];
end;
 
var
  a: tAr;
  m,n,i,j,s: integer;
begin
  write('Ââåäèòå ðàçìåðû ìàòðèöû m, n: ');
  readln(m,n);
  writeln('Ìàòðèöà:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to m do
    s:=s+maxim(a,i,n);
  writeln('S = ',s);
end.

@Maksis 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 9
		1
	Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить функцию вычисления максимума) 03.06.2013, 17:42. Показов 1466. Ответов 1 Метки нет (Все метки) Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить функцию вычисления максимума) 0

	03.06.2013, 17:57

Опции темы

Дана действительная матрица mxn. Найти сумму наибольших значений элементов ее строк. (определить функцию вычисления максимума)

Решение