Помогите в освоении Паскаля

[Hworang]

Пытаюсь освоить паскаль. Есть задачка: есть двумерный массив и два одномерных, все отрицательные числа из двумерного массива записать в один одномерный и все положительные в другой одномерный.
Мне решение всей программы не нужно, только вот этот момент: каким образом записать из двумерного в одномерный? я пытался вот так:
if A[i,j]<0 then
B[k]:=A[i,j];
.....

но так ничего не записывает
когда пытаюсь отдельно в одномерный массив вписать строку либо столбец - высвечивает ошибку: Type is mismatch

[начинающий кодер]

а типы у массивов одинаковые?

program sred;
uses crt;
var i,k,k1,n,m,j:integer;
 a:array[1..100,1..100] of integer;
 b:array[1..100] of integer;
 c:array[1..100] of integer;
 begin
clrscr; 
 writeln('vvedite n ');
 readln(n);
 writeln('vvedite m ');
 readln(m);
 k:=1;k1:=1;
 for i:=1 to n do
 for j:=1 to n do begin
 a[i,j]:=random(100)-50;
 if a[i,j]<0 then begin b[k]:=a[i,j];inc(k);end;
  if a[i,j]>=0 then begin c[k1]:=a[i,j];inc(k1);end;
 write (' a[',i,j,']=',a[i,j]);
 writeln;
 end;

 for i:=1 to k-1 do
 write (' ',b[i]);
 writeln;
 writeln;
 for i:=1 to k1-1 do
 write (' ',c[i]);
 writeln;
readln;
end.

вот должно работать!

[Kotofff]

наверное i и j переменные цикла ?
а k - тоже увеличивается на 1 когда условие удовлетворено ?
если нет - то может так :

k := 0;
if A[i,j]<0 then 
  begin 
  inc(k);
  B[k]:=A[i,j];
  end;

[Hworang]

Сообщение от начинающий кодер

а типы у массивов одинаковые?

да, типы у всех одинаковые

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

наверное i и j переменные цикла ?
а k - тоже увеличивается на 1 когда условие удовлетворено ?
если нет - то может так :

k := 0;
if A[i,j]<0 then 
  begin 
  inc(k);
  B[k]:=A[i,j];
  end;

через процедуры делаю.... А заполняется через рандом, B, C - заполняются нулями, т.е. так:

for k:=1 to p do
B[k]:=0;
for l:=1 to q do
C[l]:=0;

а что это "inc(k)" ? я незнаком с этой записью....

[начинающий кодер]

inc(k)

равносильно

к:=к+1;

[Hworang]

понял. все равно не работает....

[начинающий кодер]

понял. все равно не работает....

а полный код можно посмотреть??

[Hworang]

конечно!

program pr6;
uses crt;
  const
      n=5;
      m=5;
      k=25;
      l=25;
   type
       typeMas=array[1..n,1..m] of integer;
       typeMas1=array[1..k] of integer;
       typeMas2=array[1..l] of integer;
   var
       A:TypeMas;
       B:typeMas1;
       C:typeMas2;
       i,j,p,q:integer;

   Procedure Massiv;
   begin
    randomize;
     for i:=1 to n do
      for j:= 1 to m do
       A[i,j]:=random(100)-random(100);
   end;

   procedure writeMas;
       begin
         for i:=1 to n do begin
          for j:=1 to m do begin
             write(A[i,j]:4);
           end;
           writeLn;
         end;
         writeLn;
       end;

   procedure writeResult;
   var kolvo_otric, kolvo_poloj : integer;
       vse_poloj, vse_otric:boolean;
       begin
            for p:=1 to k do
            B[p]:=0;
            for q:=1 to l do
            C[q]:=0;
            p:=0;
            if A[i,j]<0 then
            begin
            inc(p);
            B[p]:=A[i,j];

            end;
            for p:=1 to k do
            write(B[p]:8);
         end;


begin
clrscr;
    massiv;
    writeMas;
    writeResult;
    read(i);
end.

здесь написано только для первого случая, когда <0

[начинающий кодер]

попробуй мой код!!! в твоем куча ошибок например перед этим

if A[i,j]<0 then
            begin
             inc(p);    B[p]:=A[i,j];

надо р присваивать значение 1 то есть

р:=1;

так как p=25 ты егоувеличиваешь на 1 и он становится 26 а массив только до 25!! и сначала

B[p]:=A[i,j];

а потом

inc(p);

и зануление одномерных массивов можешь вообще выкинуть!!!

program pr6;
uses crt;
  const
      n=5;
      m=5;
   k=25;
   l=25;
    
   type
       typeMas=array[1..n,1..m] of integer;
       typeMas1=array[1..k] of integer;
       typeMas2=array[1..l] of integer;
   var
       A:TypeMas;
       B:typeMas1;
       C:typeMas2;
   Procedure Massiv(var a1:typemas);
   var i,j:integer;
   begin
    randomize;
     for i:=1 to n do
      for j:= 1 to m do
       A1[i,j]:=random(100)-random(100);
   end;

   procedure writeMas( var a2:typemas);
       var i,j:integer;
	   begin
         for i:=1 to n do begin
          for j:=1 to m do begin
             write(A2[i,j]:4);
           end;
           writeLn;
         end;
         writeLn;
       end;

   procedure writeResult(var a3:typemas; var a4:typemas1; var a5:typemas2);
   var i,j,k11,k12,p: integer;
 
       begin
            k11:=1;
			k12:=1;
			for i:=1 to n do
 for j:=1 to n do begin
 a3[i,j]:=random(100)-50;
 if a3[i,j]<0 then begin a4[k11]:=a3[i,j];inc(k11);end;
  if a[i,j]>=0 then begin a5[k12]:=a3[i,j];inc(k12);end;

            end;writeln;
            for p:=1 to k11-1 do
            write(a4[p]:8);writeln;
			for p:=1 to k12-1 do
            write(a5[p]:8);
         end;
begin
clrscr;
    massiv(a);
    writeMas(a);
    writeResult(a,b,c);
    readln;
end.

[Hworang]

да, твой работает.
прост хотел в своем разобраться, сейчас буду искать ошибки..... попытаюсь исправить.
Спасибо за помощь