двумерный массив на паскале (Pascal ABS)

[Jay7]

Помогите решить двумерный массив!
Задание: Записать на место отрицательный элементов матрицы нули и вывести ее на печать. ( D(K;K) K<=10 )

[Хыиуду]

А подумать? Вся задача решается в пять строк.
Что именно непонятно? Как проверить число на отрицательность? Как вывести число на экран? Как присвоить переменной значение 0?

[BHy4ok]

Код: Выделить всё

for i:=1 to k do
for j:=1 to k do
if d[i,j]<0 then d[i,j]:=0;

[Jay7]

да да именно ето и не было понятно, пасиба! а если не трудно можете написать весь код программы?

[BHy4ok]

Код: Выделить всё

uses
  Crt;
var
  d:array[0..50,0..50] of integer;
  i,j,k:integer;
begin
ClrScr;
  write('vvedite razmernost k*k: ');
  readln(k);
  randomize;
  writeln;
  writeln('ishodnaya matrica');
  for i:=0 to k-1 do
  begin
    for j:=0 to k-1 do
    begin
      d[i,j]:=random(20)-5;
      write(d[i,j]:4);
    end;
    writeln;
  end;
  writeln('polychennaya matrica');
    for i:=0 to k-1 do
  begin
    for j:=0 to k-1 do
    begin
      if d[i,j]<0 then
        d[i,j]:=0;
      write(d[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

[Jay7]

Благодарю!