паскаль с наработками, программа не идет,исправьте кто сможет..

[newlife]

В двумерном массиве найти сумму максимального и минимального элементов, если она меньше нуля, тогда все отрицательные элементы матрицы, лежащие выше главной диагонали,заменить на нули.

Исправьте что нужно,чтобы она пошла...






program p;
const
N = 9;
M = 9;
var
a: array[0..N, 0..M] of integer;
i, j, min, max, s: integer;
begin
Writeln('-----Enter the matrix elements--------');
for i := 0 to N do begin
for j := 0 to M do begin
Readln(a[i, j]);
end;
end;
Writeln('---Matrix A---');
for i := 0 to N do begin
for j := 0 to M do begin
write(a[i ,j], #32);
end;
writeln;
end;
min := a[0, 0];
max := a[0, 0];
for i := 0 to N do begin
for i := 0 to M do begin
if ( a[i, j] > max ) then max := a[i, j];
if ( a[i, j] < min ) then min := a[i, j];
end;
end;
Writeln;
s := min + max;
Writeln('Sum of min and max elements: ', s);
Writeln;
if ( s < 0 ) then begin
for i := 0 to N do begin
for j := i + 1 to M do begin
if ( a[i, j] < 0 ) then a[i, j] := 0;
end;
end;
Writeln('------Modified Matrix A------');
for i := 0 to N do begin
for j := 0 to M do begin
write(a[i, j]);
end;

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=95797
А эта то чем неустроила?

[newlife]

с maxj не поняла...

[ROMA2PVT]

mini,minj; maxi,maxj это положение элементов в матрице (допустим первый столбец первая строка).

[newlife]

Спсибо, уважаемый())))))....вы очень добрый у нас...)

[ROMA2PVT]

Можно вообще это убрать так как оно не нужно.

[ROMA2PVT]

Оффтоп:
А уин аськи можно у тебя тиснуть?