матрица, сумма элементов Опции

[Римус]

Люди , помогите пожалуйста решить задачу.
ЗАДАНИЕ 1. Дана матрица D(n*m). Найти сумму элементов по каждому столб¬цу, разделив её на максимальный диагональный элемент.

program pract11_1;
const n=3;m=3;
type mas=array[1..n,1..m] of integer;
     mas2=array[1..n] of integer;
var j,i:integer; a:mas2; d:mas; s:integer; max:mas2;
begin
  for i:=1 to n do
  for j:=1 to m do 
    begin
    writeln('vvedite ',i,',',j,' element matrici');
    read(d[i,j]);
    end;
 for J:=1 to m do 
       begin
       s:=0;
       for i:=1 to n do
       s:=s+d[i,j];
       a[i]:=s;
       end;
for i:=1 to n do
max:=d[1,1];
if d[i,i]>max then max:=d[i,i];
a[i]:=s/max;
writeln('stolbec',i,'stoki',a[i]:8);
end.

[Bokul]

{$mode TP}//удали если компилируешь не в Fpc
uses crt;
const
   n=5;
type
    mas=array[1..n,1..n] of integer;

function FindMaxDiag(ar:mas):integer;//находим максимальный элемент, находящийся на диагоналях
var i:byte;
    max:integer;
begin
  max:=ar[1,1];
  for i:=1 to n do begin
      if (max<ar[i,i]) then
         max:=ar[i,i];
      if (max<ar[i,n-i+1]) then
         max:=ar[i,n-i+1];
  end;
  FindMaxDiag:=max;
end;

Function FindSumColumn(ar:mas; col:byte):integer;//считаем сумму элементов колонки
var i:byte;
    sum:integer;
begin
  sum:=0;
  for i:=1 to n do
      inc(sum,ar[i,col]);
  FindSumColumn:=sum;
end;

var ar:mas;
    i,j:byte;
    sum,diag:integer;
begin
  clrscr;
  randomize;
  for i:=1 to n do begin
      for j:=1 to n do begin
          ar[i,j]:=random(9);
          write(ar[i,j],' ');
      end;
      writeln;
  end;

  diag:=FindMaxDiag(ar);
  writeln('Maximum: ',diag);
  for i:=1 to n do
      writeln('Cloumn ',i,' ',FindSumColumn(ar,i)/diag:0:2);
  readln;
end.

Сообщение отредактировано: Bokul - 3.03.2007 0:14