Двумерные массивы

[Andrey_j07]

1)
Записать на место отрицательных элементов матрицы нули и вывести ее на печать в общепринятом виде
K<=10; D(k;k)
2)
Найти в каждой строке наибольший элемент и поменять его местами с элементом главное диагонали. Отпечатать полученную матрицу в общепринятом виде
N<=15; P(N;N)

[Grag]

Обращайся, сделаю, легко!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Google2010]

1)

for i:=1 to k do begin
for j:=1 to k do begin
if d[i,j]<0 then d[i,j]:=0; 
write(d[i,j]);
end;
writeln;
end;

2

for i:=1 to n do
begin
jm:=1;
for j:=1 to n do
if p[i,j]>p[i,jm] then jm:=j;
p[i,jm]:=p[i,jm]+p[i,i];
p[i,i]:=p[i,jm]-p[i,i];
p[i,jm]:=a[i,jm]-p[i,i];
end;
for i:=1 to n do begin
for j:=1 to n do
write (p[i,j]);
writeln;
end;