Паскаль задачи на матрици(через процедуры) нароботки есть.Помогите

[Rembo078]

1)В матрице A(m,n) все ненулевые элементы заменить обратным по величине и противоположным по знаку
ВОТ КОД

program massiv;

var matr : array[1..20,1..20] of integer;
    i, j, n, m : integer;

procedure input;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        write('vvedite  ',j,'  element stroki: ');
        readln(matr[i,j]);
      end;
    end;
end;

procedure output;
begin
    for i:=1 to n do
    begin
      for j:=1 to m do
       write(matr[i,j]:5);
      writeln;
    end;
end;

begin
  write('dlina strok ne bolshe 20: ');
  readln(n);
  write('dlina stolbcov ne bolshe 20: ');
  readln(m);
  if (n<=20)and(m<=20) then
  begin
    input;
    writeln;
    writeln('massiv do vipolneni zadani: ');
    output;

    for i:=1 to n do
      for j:=1 to m do
       if matr[i,j]=0 then
       {ПОМОГИТЕ С УСЛОВИЕМ КАК ЗНАК ПОМЕНЯТЬ Я ПОНЯЛ А ВОТ ОБРАТНАЯ ВЛИЧИНА(Я ЗНАЮ ЧТО ЭТО НО БРЕД КАКОЙ ТО ПОЛУЧАЕТСЯ).
       m[i,j]:=ВОТ СЮДА ЕГО ЗАПИСАТЬ}

writeln;
 writeln('vash massiv posle vipolneni zadan: ');
 output;
 end else
 writeln('Razmer matrici ne dolgen bit bolshe 20!');
end.

ВТОРАЯ ЗАДАча
2)Матрица А вводится из вне(с клавиатуры,из файла) построчно;число строк велико и заранее неизвестно,но различных строк не более m.Расположить ее в выделенном массиве:при этом повторяющиеся строки включать единожды.
ВОТ В ЭТОЙ ЗАДАЧЕ УВЫ НИЧЕГО СООБРАЗИТЬ НЕ МОГУ

[Sweta]

Научитесь пользоваться тегом CODE, для чего выделите текст программы и нажмите Значок #

А ВОТ ОБРАТНАЯ ВЛИЧИНА(Я ЗНАЮ ЧТО ЭТО НО БРЕД КАКОЙ ТО ПОЛУЧАЕТСЯ)

Почему бред какой-то?

ОБРАТНАЯ ВЕЛИЧИНА, термин, присвоенный результату деления единицы на исходную величину. Например, для величины 2 обратной является 1/2, для 1/2 - 2, для 8 - 1/8 (или 0,125), а для 3/7 - 7/3 и т. п.

все ненулевые!!
т.е

if matr[i,j]=0 then

условие неправильное, должно быть

не равно 0

как записать на Паскале не знаю.

[Stilet]

 for i:=1 to n do
      for j:=1 to m do
       if matr[i,j]=0 then
         mart[i,j]:=-mart[i,j]

велико и заранее неизвестно

Это что тема "Динамические массивы"?

[Rembo078]

да.И в первой задаче помимо кода ошибки есть какие нибудь в оформлении?

[dr.Chas]

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

да.И в первой задаче помимо кода ошибки есть какие нибудь в оформлении?

Нет У вас наверно даже паскаль не установлен?

[Stilet]

Есть:
В проседуре procedure output; лишний end

[dr.Chas]

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

Есть:
В проседуре procedure output; лишний end

Тогда уж в input