Цитата:
Сообщение от PHILOSOPH13
дан массив А размера N.сформировать два новых массива B и C.
В массив B записать все положительные члены массива A,в массив C все отрицательные(сохраняя порядок элементов)Вывести сначала размер и содержимое массива B,а затем-размер и содержимое массива C.
|
Код:
Const
NA=30;
VAR
NB,NC:BYTE;
A,B,C:ARRAY[1..NA] of INTEGER;
i:INTEGER;
BEGIN
RANDOMIZE;
NB:=0;
NC:=0;
WriteLn('Initial array ("A"):');
For i:=1 to NA do
begin
A[i]:=RANDOM(100)-50;
Write(A[i]:4);
IF A[i]>0 then
begin
INC(NB);
B[NB]:=A[i];
end else
IF A[i]<0 then
begin
INC(NC);
C[NC]:=A[i];
end;
end;
WriteLn;
WriteLn('NB= ',NB);
IF NB>0 then
For i:=1 to NB do
Write(B[i]:4);
WriteLn;
WriteLn('NC= ',NC);
IF NC>0 then
For i:=1 to NC do
Write(C[i]:4);
WriteLn;
ReadLn;
END.