Дан одномерный массив. Из элементов массива, равных 200, сформируйте массив b. Из элементов, меньших 48, сформируйте массив c.

спасибо большое

незачто)

var A,B,C:array[1..100] of Integer;j,k,i,N:integer;beginReadln(N);For i:=1 to N doReadln(A[i]);For i:=1 to N dobeginIf A[i]=200 thenbeginj:=j+1;B[j]:=A[i];end;If A[i]<48 thenbegink:=k+1;C[k]:=A[i];end;end;end.