почему выдает ошибку паскаль? Program3.pas(30) : Встречено 'and', а ожидался оператор

[BDA]

1) Не нужно пробелов в теге [CODE]
2) Чуть поправил:

const
  n = 5;
  m = 10;
var
  a: array[1..n, 1..m] of integer;
  i, j, k: integer;
begin
  randomize;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(199) - 99;
      write(a[i,j]:4);
      if a[i, j] > 0 then
        inc(k)
      else if a[i, j] < 0 then
        dec(k);
    end;
    writeln;
  end;
  if k = 0 then
    for j := 1 to m do
      write(a[1, j], ' ')
  else
    write(0);
  readln;
end.

3) Программа выводит ноль, если количество не совпадает, чтобы оно совпало при случайном заполнении, должно повезти
4) А что в условии говорит о том, что нужно проверять только первую строку? Действие-то может быть произвольным.

[Julia1]

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

1) Не нужно пробелов в теге [CODE]
2) Чуть поправил:

const
  n = 5;
  m = 10;
var
  a: array[1..n, 1..m] of integer;
  i, j, k: integer;
begin
  randomize;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(199) - 99;
      write(a[i,j]:4);
      if a[i, j] > 0 then
        inc(k)
      else if a[i, j] < 0 then
        dec(k);
    end;
    writeln;
  end;
  if k = 0 then
    for j := 1 to m do
      write(a[1, j], ' ')
  else
    write(0);
  readln;
end.

3) Программа выводит ноль, если количество не совпадает, чтобы оно совпало при случайном заполнении, должно повезти
4) А что в условии говорит о том, что нужно проверять только первую строку? Действие-то может быть произвольным.

1)я проверяла везение )) когда в первой строчки было равное количества положительных и отрицательных, но она мне её не выводила на экран хотя и по сути всё должно быть верно!?
2) зачем совершать лишнюю работу если от нас требуется только проверять первую строчку?

[BDA]

1) Эта программа проверяет равенство количества положительных и отрицательных элементов по всей матрице, а не по первой строке (совпадение количества в первой строке не значит совпадения количества во всей матрице)
2) Это не лишняя работа, в условии ничего про первую строчку нет
Это выглядит так: если а, то б, иначе с
где
а - количество отрицательных элементов = количеству положительных
б - вывести первую строку
с - в данном случае его нет (а в код оно пробралось из другого условия задачи)

Хорошо, вот другой код:

const
  n = 5;
  m = 10;
var
  a: array[1..n, 1..m] of integer;
  i, j, k: integer;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(199) - 99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to m do
    if a[1, j] > 0 then
      inc(k)
    else if a[1, j] < 0 then
      dec(k);
  if k = 0 then
    for j := 1 to m do
      write(a[1, j], ' ')
  else
    write(0);
  readln;
end.

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

UPD
Пожалуйста

[Julia1]

Даниил Спасибо большое за объяснение! вы мне очень помогли!