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

[Julia1]

:conf used:
(дана матрица 5*10 вывести первую строку если каличество отрицательных элементов = каличеству положительных (ноль не учитывается))

program Project1;
var
a: array[1..5,1..10] of integer;
n,m,i,j,k: integer;
f: boolean;

 begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  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;
 i:=1;
 k:=0;
 
 for j:=1 to m do
  begin
  if a[i,j]>0 then k:=k+1
    else l:=K-1;
  if k=l then  writeln (a[1,j],'')
   else
  write ('0');
 readln;
 and. {30 строка}

[BDA]

1) Кросспостинг запрещен - http://programmersforum.ru/showthread.php?t=254663
2) Нужно писать end, а не and
3) Еще есть ошибки логические

[Julia1]

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

1) Кросспостинг запрещен - http://programmersforum.ru/showthread.php?t=254663
2) Нужно писать end, а не and
3) Еще есть ошибки логические

это не Кросспостинг - это я написала программу заново по одному и тому же условию и сдесь как вы уже заметили другие ошибки.


спасибо большое за ответ

[BDA]

1) Есть кнопка "Правка" для дописывания своего поста
2) Пожалуйста
3) Остальные ошибки будем исправлять?
4) Задача осталась та же, так что можно считать кросспостом, но давайте, не будем об этом спорить, Вам ведь нужно задачу решить, а уж модератор решит, что оставить, а что удалить/слить в одну тему

[Julia1]

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

1) Есть кнопка "Правка" для дописывания своего поста
2) Пожалуйста
3) Остальные ошибки будем исправлять?
4) Задача осталась та же, так что можно считать кросспостом, но давайте, не будем об этом спорить, Вам ведь нужно задачу решить, а уж модератор решит, что оставить, а что удалить/слить в одну тему

да, мне нужно её решить... но увы даже после исправления не могу понять почему не выводит на экран первую строку?

[BDA]

1) Какое все-таки условие:

нужно ввести матрицу размером M*N и если в первой строке количество отрицательных элементов равно количеству положительных (ноль не учитывается), то нужно вывести эту строчку на экран если нет то на экран выводится ноль.

или

дана матрица 5*10 вывести первую строку если каличество отрицательных элементов = каличеству положительных (ноль не учитывается))

2) Используйте в будущем для выкладывания кода кнопочку решетка #

[Stilet]

Закрыл кросспост.

[Julia1]

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

1) Какое все-таки условие:

или

2) Используйте в будущем для выкладывания кода кнопочку решетка #

условие - 2

[BDA]

Такое условие подразумевает фиксированные m и n (не нужно запрашивать у пользователя). Также из этого условия можно скорее понять, что считать количество нужно по всей матрице, а не по 1 строке.

k := 0;
for i := 1 to n do
  for j := 1 to m do
    if a[i, j] > 0 then
      inc(k)
    else if a[i, j] < 0 then
      dec(k);
if k = 0 then
//выводим строку

Как вывести строку матрицы Вы можете подсмотреть в предыдущей теме.
Если хочется кода покороче, то вместо кучи if else можно написать inc(k, ord(a[i, j] > 0) - ord(a[i, j] < 0));.

[Julia1]

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

Такое условие подразумевает фиксированные m и n (не нужно запрашивать у пользователя). Также из этого условия можно скорее понять, что считать количество нужно по всей матрице, а не по 1 строке.

k := 0;
for i := 1 to n do
  for j := 1 to m do
    if a[i, j] > 0 then
      inc(k)
    else if a[i, j] < 0 then
      dec(k);
if k = 0 then
//выводим строку

Как вывести строку матрицы Вы можете подсмотреть в предыдущей теме.
Если хочется кода покороче, то вместо кучи if else можно написать inc(k, ord(a[i, j] > 0) - ord(a[i, j] < 0));.

почему мы должны перебор делать по всей матрицы когда нам нужно вывести только первую строку по условию задачи? и всё же когда я запускаю программу PascalABC не печатает первую строку он печатает только '0'!

  program Project1; 
var
  a: array[1..5,1..10] of integer;
  n,m,i,j,k: integer;
  f: boolean;
 begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  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 i:= 1 to n do
   begin
  for j := 1 to m do
    begin
    if a[i, j] > 0 then
      inc(k)
    else if a[i, j] < 0 then
      dec(k);
      end;
      end;
 if k = 0 then
  f:=true;
  if f then
   for j := 1 to m do
    write(a[1, j], ' ')
  else
    write(0);

    readln;
    
end.