uses crt;
const n=45;
var a:array [1..n] of integer;
    kneg,knil,i:byte;
begin clrscr;
      writeln ('Type ',n,' numbers: ');
      for i:=1 to n do begin
          read(a[i]);
          if i<=35 then
             if a[i]<0 then
                inc(kneg,1);
          if a[i]=0 then
             inc(knil,1);
      end;
      writeln;
      writeln ('Amount of negative numbers: ',kneg,'; Amount of nils: ',knil);
      readkey;
end.

const
 n=8;
var
 i,j:integer;
 a,b,c:array[1..n,1..n] of real;

begin
 Randomize;
 for i:=1 to n do
   for j:=1 to n do
    a[i,j]:=Random*100-50;

 WriteLn('Matrix A:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(a[i,j]:8:3);
   writeln;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

 for i:=1 to n do
   for j:=1 to n do
    If j>=i then b[i,j]:=a[i,j] else b[i,j]:=-a[i,j];

 for i:=1 to n do
   for j:=1 to n do
    If j<i then c[i,j]:=a[i,j] else c[i,j]:=-a[i,j];

 WriteLn('Matrix B:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(b[i,j]:8:3);
   writeln;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;

 WriteLn('Matrix C:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    Write(c[i,j]:8:3);
   writeln;
  end;
 ReadLn;
end.