лабы / лаб4 / lab4_1

program lab4_1;
var
    M: array [1..20] of Integer;
    A: array [1..20] of Integer;
    B: array [1..20] of Integer;
    i: Integer;
    an: Integer = 1;
    bn: Integer = 1;

begin
    randomize;
    for i:= 1 to 20 do
        begin
            M[i] := random(81) - 40;
        end;
    Write('Массив M: ');
    for i:= 1 to 20 do Write(M[i], ', ');
    WriteLn('');
    for i:= 1 to 20 do
        begin
            if (M[i] >= 0) then
            begin
                A[an] := M[i]; 
                an := an + 1;
            end
            else 
            begin
                B[bn] := M[i]; 
                bn := bn + 1;
            end;
        end;
    Write('Массив A: ');
    for i:= 1 to 20 do Write(A[i], ', ');
    WriteLn('');
    Write('Массив B: ');
    for i:=1 to 20 do Write(B[i], ', ');
    WriteLn('');
end.