Дан одномерный массив. Из элементов массива, равных 200, сформируйте массив b. Из элементов, меньших 48, сформируйте массив c.
Дан одномерный массив. Из элементов массива, равных 200, сформируйте массив b. Из элементов, меньших 48, сформируйте массив c.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы