Вычислить сумму наибольших элементов матрицы. Вывести на экран исходную матрицу в общепринятом виде и результат работы.

@Randombird · Регистрация: 14.01.2013

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

Дана целочисленная матрица A(N,M), где N=5 M=5. Вычислить сумму наибольших элементов матрицы. Вывести на экран исходную матрицу в общепринятом виде и результат работы. Необходимо применить не менее 2 подпрограмм. Заранее спасибо.

@Puporev · 14.01.2013, 14:02

Сообщение от Randombird

Вычислить сумму наибольших элементов матрицы

Здесь ничего не пропущено?
Может наибольших элементов строк(или столбцов) матрицы

@Randombird · 14.01.2013, 14:04 **[ТС]**

Точно. Элементов столбцов.

@Puporev · 14.01.2013, 14:20

Pascal

uses crt;
const n=5;
      m=5;
type mtr=array[1..n,1..m] of integer;
procedure matrix(var a:mtr);
var i,j:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4)
   end;
  writeln
 end;
writeln
end;
function summa(a:mtr):integer;
var i,j,mx,s:integer;
begin
s:=0;
for j:=1 to m do
 begin
  mx:=a[1,j];
  for i:=2 to n do
  if a[i,j]>mx then mx:=a[i,j];
  s:=s+mx
 end;
summa:=s
end;
var a:mtr;
begin
clrscr;
randomize;
matrix(a);
write('Сумма наибольших элементов столбцов=',summa(a));
readln
end.

@Randombird · 14.01.2013, 16:35 **[ТС]**

Благодарю!

@Randombird 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 17
		1
	Вычислить сумму наибольших элементов матрицы. Вывести на экран исходную матрицу в общепринятом виде и результат работы. 14.01.2013, 13:42. Показов 1231. Ответов 4 Метки нет (Все метки) Дана целочисленная матрица A(N,M), где N=5 M=5. Вычислить сумму наибольших элементов матрицы. Вывести на экран исходную матрицу в общепринятом виде и результат работы. Необходимо применить не менее 2 подпрограмм. Заранее спасибо. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	14.01.2013, 14:02	2
	Сообщение от Randombird Вычислить сумму наибольших элементов матрицы Здесь ничего не пропущено? Может наибольших элементов строк(или столбцов) матрицы 0

@Randombird 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 17
	14.01.2013, 14:04 [ТС]	3
	Точно. Элементов столбцов. 0

@Randombird 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 17
	14.01.2013, 16:35 [ТС]	5
	Благодарю! 0

Опции темы