нужно доделать программу на паскале(двумерный массив)

[Venesia]

Текст задачи:в двумерном массиве последний отрицательный элемент каждого столбца заменить нулем.
Начало есть:

program prim_1;
uses crt;
var i,j:integer;{может надо еще переменную ввести?}
a:array [1..3,1..4] of integer;
begin
clrscr;
randomize;
for i:= 1 to 3 do
for j:= 1 to 4 do
a[i,j]:=random(100)-50;
for i:= 1 to 3 do
begin
fot j:=  to 4 do
write(a[i,j]:4);
writeln;
end;
end.

а вот дальше что делать?прошу помочь))))

[alex_fcsm]

Проходите по каждому столбцу и запоминайте очередной отрицательный элемент, после прохода

Matr[i,NumOtr]:=0;

[Venesia]

оууу,это как-то сложно,мы такого в школе не делали.если можно попроще и поподробнее.*пожалуйста*

[alex_fcsm]

for i:=1 to m do
 begin
 NumOtr:=0;
  for j:=1 to n do
   if a[i,j]<0 then NumOtr:=j;
 if NumOtr<>0 then a[i,NumOtr]:=0;
 end;

Вместо m и n поставь свои данные

[Venesia]

простите за наглость))))но еще можно вопросик? а в строчке writeln,котрая в самом конце будет что именно надо писать? и NumOtr надо в Var описывать?

о великий модератор!прошу разъяснить мне эту маленькую детальку))))

[alex_fcsm]

Сообщение от Venesia

простите за наглость))))но еще можно вопросик? а в строчке writeln,котрая в самом конце будет что именно надо писать? и NumOtr надо в Var описывать?

о великий модератор!прошу разъяснить мне эту маленькую детальку))))

Описание переменных я предоставил вам. Вместо последнего writeln сделайте вывод "новой" матрицы.

[Venesia]

вот именно это меня и интересует,проще говоря как это сделать?*я в курсе что уже порядком достала*^_^ не обессудьте)))

[alex_fcsm]

const m=4;n=5;
var a:array[1..m,1..n] of integer;
i,j,NumOtr:integer;

begin
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(10)-random(10);
   write(a[i,j]:3)
  end;
 writeln;
 end;
 writeln('--------------------');
for j:=1 to n do
 begin
 NumOtr:=0;
  for i:=1 to m do
   if a[i,j]<0 then NumOtr:=i;
 if NumOtr<>0 then a[NumOtr,j]:=0;
 end;
for i:=1 to m do
 begin
 for j:=1 to n do
   write(a[i,j]:3);
 writeln;
 end;


end.

[unbanned]

если всё по заданию, то можно проще...

program prim_1;

uses
  crt;

var
  i, j: integer;
  a: array [1..3, 1..4] of integer;

begin
  clrscr;
  randomize;
  for i := 1 to 3 do
    for j := 1 to 4 do
      a[i, j] := random(100) - 50;
  for j := 1 to 4 do  // перебор по стобцам
    if a[3, i] < 0 then a[i, 4] := 0; // 3й(последний) элемент каждого столбца если меньше нуля, то заменитть нулем
  for i := 1 to 3 do
  begin
    for j := 1  to 4 do
      write(a[i, j]:4);
    writeln;
  end;
end.

[alex_fcsm]

Сообщение от unbanned

program prim_1;
....

Нужно искать последний отрицательный элемент, который в общем случае необязательно является последним в столбце