Массивы

program kkk;
uses crt;
const mm=5;
        nn=4;
var i,j,pl,otr;:integer;
     b,c:array[1..mm*nn]of integer;
     a:array[1..mm,1..nn]of integer;
 
begin 
 clrscr;
 randomize;
 pl:=0;
 otr:=0;
 for i:=1 to mm do
 for j:=1 to nn do a[i,j]:=random(41)-21;
 writeln('Массив А:');
 for i:=1 to mm do
 begin
  writeln;
  for j:=1 to nn do write(a[i,j]:2,' ');
 end;
 
 for i:=1 to mm for j:=1 to nn do
 begin
  if a[i,j]>0 then
  begin
   inc(pl);
   b[pl]:=a[i,j];
  end
  else if a[i,j]<0 then
  begin
   inc(otr);
   b[otr]:=a[i,j];
  end;
 end;
 
 write('Массив В:');
 for i:=1 to pl do write(b[i],' ');
 writeln;
 write('Массив C:');
 for i:=1 to otr do write(c[i],' ');
 readln;
end.

c[otr]:=a[i,j];

uses crt;
var i,j,n,m,sum:integer;
     b:array[1..50]of integer;
     a:array[1..50,1..50]of integer;
 
begin 
 clrscr;
 randomize;
 writeln('n,m ');
 readln(n,m);
 
 for i:=1 to n do
 for j:=1 to m do a[i,j]:=random(41)-21;
 writeln('Массив А:');
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to m do write(a[i,j]:2,' ');
 end;
 
 for i:=1 to n do
  begin
   sum:=0;
     for j:=1 to m do
       sum:=sum+a[i,j];
     b[i]:=sum;
  end;
 
 write('Массив В:');
 for i:=1 to n do write(b[i],' ');
 writeln;
 
 readln;
end.