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

[Римус]

Люди , помогите пожалуйста решить задачу.
ЗАДАНИЕ 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.

[#Time#]

Я подредактировал твою программу немного.
Сделал числа действительными, так как у тебя деление нужно выполнять - с действительными числами удобнее. Исправил несколько ошибок... и в конце там... в общем посмотри...
Теперь должно всё правильно работать...

Код

program pract11_1;
const n=3;m=3;
type mas=array[1..n,1..m] of real;
     mas2=array[1..n] of real;
var j,i:integer; a:mas2; d:mas; s,max:real;
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[j]:=s;
       end;
max:=d[1,1];
for i:=1 to n do
if d[i,i]>max then max:=d[i,i];
for i := 1 to n do
begin
  a[i]:=a[i]/max;
  writeln('stolbec ',i,' stoki ',a[i]:4:2);
end;
readln;
end.