Пожалуйста помогите написать програмку

[Aleksandr H.]

поиск ни к чему не привел?
https://programmersforum.ru/showthread.php?t=272425

[Данил28]

Сообщение от Aleksandr H.

поиск ни к чему не привел?
https://programmersforum.ru/showthread.php?t=272425

Добрый вечер. Я не знаю как сделать, чтобы искало не с нулем, как у человека, а с отрицательным, как у меня.

[digitalis]

if a[i, j] = 0

Если только в этом проблема, то после часового раздумья с пивом и воблой приходим к выводу:

if a[i, j] < 0

[newerow1989]

const n = 3;
      m = 4;
var i, j, s: integer;
    p: array[1..n, 1..m] of integer;
    flag: boolean;

procedure Vo;
begin
   for i:=1 to n do
      for j:=1 to m do
      begin
         Write('p[', i, ', ', j, '] = ');
         Readln(p[i, j]);
      end;
end;

procedure Vy;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do
         Write(p[i, j]:3, '  ');
      Writeln;
   end;
   Writeln;
end;

procedure Obr;
begin
   for j:=1 to m do
   begin
      flag:=false;
      s:=0;
      for i:=1 to n do
      begin
         s:=s+p[i, j];
         if p[i, j]<0 then
            flag:=true;
      end;
      if flag then
         Writeln('#', j, ': s = ', s);
   end;
end;

begin
   Vo;
   Vy;
   Obr;
   Readln;
end.

[Данил28]

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

const n = 3;
      m = 4;
var i, j, s: integer;
    p: array[1..n, 1..m] of integer;
    flag: boolean;

procedure Vo;
begin
   for i:=1 to n do
      for j:=1 to m do
      begin
         Write('p[', i, ', ', j, '] = ');
         Readln(p[i, j]);
      end;
end;

procedure Vy;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do
         Write(p[i, j]:3, '  ');
      Writeln;
   end;
   Writeln;
end;

procedure Obr;
begin
   for j:=1 to m do
   begin
      flag:=false;
      s:=0;
      for i:=1 to n do
      begin
         s:=s+p[i, j];
         if p[i, j]<0 then
            flag:=true;
      end;
      if flag then
         Writeln('#', j, ': s = ', s);
   end;
end;

begin
   Vo;
   Vy;
   Obr;
   Readln;
end.

Добрый день, во такая ошибка.

[digitalis]

Может, этому простите за выражение абеце пробел после := нужен? Типа

for i := 1 ....

Данил28 давать скриншотом результаты компиляции - плохая затея. Скопипастить - и в текст с тегами CODE. И цитировать полностью отвечаемый пост ни к чему. И так понятно, о чём речь.

[Данил28]

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

Может, этому простите за выражение абеце пробел после := нужен? Типа

for i := 1 ....

Данил28 давать скриншотом результаты компиляции - плохая затея. Скопипастить - и в текст с тегами CODE. И цитировать полностью отвечаемый пост ни к чему. И так понятно, о чём речь.

Здравствуйте еще раз) Пробовал, всё ту же ошибку выбивает ...

[digitalis]

Кажется, я понял: параметры цикла д.быть внутренними (локальными) переменными в процедуре. Попробуй:

procedure Vy;
var i,j: integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do
         Write(p[i, j]:3, '  ');
      Writeln;
   end;
   Writeln;
end;

и так - во всех, где есть цикл.
Вот дал бы вместо рисунка копипаст из компилятора - сразу бы ясно, а то слепи глаза: что там микробуквами накорябано.

[Данил28]

 const n = 3;
      m = 4;
var i, j, s: integer;
    p: array[1..n, 1..m] of integer;
    flag: boolean;

procedure Vo;
var i,j: integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do
         Write(p[i, j]:3, '  ');
     Readln(p[i, j]);
   end;
end;

procedure Vy;
var i,j: integer;
begin
   for i:=1 to n do
   begin
      for j:=1 to m do
         Write(p[i, j]:3, '  ');
      Writeln;
   end;
   Writeln;
end;
procedure Obr;
var i,j: integer;
begin
   for i:=1 to n do
   begin
 flag:=false;
      s:=0;
      begin
      for i:=1 to n do
      begin
         s:=s+p[i, j];
         if p[i, j]<0 then
            flag:=true;
     end;
      if flag then
         Writeln('#', j, ': s = ', s);
   end;
end;
begin
   Vo;
   Vy;
   Obr;
   Readln;
end.

Вот так ?

[digitalis]

Ну да! Спросил бы не у меня, а у компилятора - ему понравится?
Только у тебя процедура Obr стала совсем другой от такой простой правки. Зачем в одном месте ломать, если в другом правишь? Я не шибко вникал, но и во внутреннем, и во внешнем цикле параметр цикла не может быть одним и тем же (i).