Дан одномерный массив. Из элементов массива, равных 200, сформируйте массив b. Из элементов, меньших 48, сформируйте массив c.
Ответы на вопрос
Ответил Endok
0
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.
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.
Ответил lina546
0
спасибо большое
Ответил Endok
0
незачто)
Новые вопросы