Процедуры и Функции. Найти сумму наибольших значений элементов строк матрицы

@Oksana_Demina · Регистрация: 14.05.2012

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

Ребятки, помогите пожалуйста, нужно Составить подпрограммы для решения следующих задач (именно Подпрограммы):
1. Дана действительная матрица размера M*N. Найти сумму наибольших значений элементов её строк.
Заранее спасибо !))

@CodeR · 15.05.2012, 12:32

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

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

Pascal

Const n=5;m=5;
Type matr=array[1..n,1..m] of integer;
Var i,j,sum:integer;
    A:matr;
Function Max_el(k:integer):integer;
Var j,max:integer;
Begin
    max:=-10;
    For j:=1 to m do
     if A[k,j]>max then max:=A[k,j];
    Max_el:=max;
End;
Begin 
    Randomize;
    sum:=0;
    For i:=1 to n do Begin
     For j:=1 to n do Begin
      A[i,j]:=random(10)-5;
      write(A[i,j]:3);
      End;
    writeln;
    End;
    For i:=1 to n do
     sum:=sum+Max_el(i);
    writeln('Сумма максимальных эллементов строк= ',sum);
End.

@CaH_CaHbl4 · 24.05.2012, 19:06

Delphi

procedure do_doing(a:Tmatrix; n,m:integer; var sum:real);
var 
  i,j:integer;
  max:real;
begin
  sum:=0;
  for i:=1 to n do
    begin
      max:=a[i,1];
      for j:=1 to m do
        if a[i,j]>max 
        then max:=a[i,j];
      sum:=sum+max;
    end;
end;

Tmatrix = array[1..n,1..m] of real
описать в разделе типов
в процедуру передается матрица A и ее размерность n*m и возвращает в переменную sum результат

@Oksana_Demina 0 / 0 / 0 Регистрация: 14.05.2012 Сообщений: 12
		1
	Процедуры и Функции. Найти сумму наибольших значений элементов строк матрицы 14.05.2012, 23:56. Показов 1692. Ответов 2 Метки нет (Все метки) Ребятки, помогите пожалуйста, нужно Составить подпрограммы для решения следующих задач (именно Подпрограммы): 1. Дана действительная матрица размера M*N. Найти сумму наибольших значений элементов её строк. Заранее спасибо !)) 0

Опции темы

Процедуры и Функции. Найти сумму наибольших значений элементов строк матрицы

Решение