Question

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

Answer 1

Var A,B,C:array[1..100] of Integer;
j,k,i,N:integer;
begin
Readln(N);
For i:=1 to N do
Readln(A[i]);
For i:=1 to N do
begin
If A[i]=200 then
begin
j:=j+1;
B[j]:=A[i];
end;
If A[i]<48 then
begin
k:=k+1;
C[k]:=A[i];
end;
end;
end.