лабы / лаб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.