Обработка двумерного массива (Pascal)

[VertU]

Записать на место отрицательных элементов матрицы нули и вывести её на печать в общепринятом виде.
Имя матрицы и размер: D(K,K)
Условия и ограничения: K<=10

[spamer]

А в чем собсно проблема??? Я чет не пойму.

[VertU]

Немогу правильно составить код программы

[StudentPolitech]

Мда слишком уж легко))))) Ты хоть сам пытался писать, хоть кинь сюды наработки, будет за что помочь)))))

[StudentPolitech]

Подключи библиотеки и введи в массив данные, хоть это сможешь

[VertU]

наработки:
program massiv;
Var k,i,j:integer;
D:array[1..10,1..10] of real;
C:array[1..10,1..10] of real;
Begin
Writeln('Ввести k');
Readln(k);
Writeln('Ввести элементы массива');
For i:= 1 to k do
Begin
For j:=1 to k do
Readln(D[i,j]);
Writeln;
end;
For i:= 1 to k do
Begin
For j:=1 to k do
If D[i,j]>0 then C[i,j]:=0;
end;
For i:=1 to k do
Begin
For j:=1 to k do
Write(C[i,j]:4:0);
Writeln;
end;
end.

[VertU]

Исправьте пожалуйста ошибки!!!
При запуске программы все элементы матрицы меняются на ноль, а надо только чтобы отрицательные изменились

[spamer]

program Project1;



uses
  SysUtils;
Var k,i,j:integer;
D:array[1..2,1..2] of real;
C:array[1..2,1..2] of real;
Begin
Writeln('Ââåñòè ýëåìåíòû ìàññèâà');
For i:= 1 to 2 do
Begin
For j:=1 to 2 do
Readln(D[i,j]);
Writeln;
end;

For i:= 1 to 2 do
begin
For j:=1 to 2 do
begin
If D[i,j]<0 then C[i,j]:=0
else
if (D[i,j]>0) or (D[i,j]=0) then
c[i,j]:=   D[i,j] ;
end;
end;
For i:=1 to 2 do
Begin
For j:=1 to 2 do
Write(C[i,j]:4:0);
Writeln;
end;
readln;
end.

Вот держи. Для своего условия отредактируй.

[VertU]

Спасибо)))

[puporev]

Для чего вторая-то матрица? Ее и по условию нет. Просто в исходной матрице D, если отрицательный, заменяешь на ноль.

For i:= 1 to k do
For j:=1 to k do
If D[i,j]<0 then D[i,j]:=0;