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

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<br>begin
k:=k+1;
C[k]:=A[i];
end;
end;
end.

Comments

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

---

незачто)