Цитата:
Сообщение от Undead
Доброго времени суток.
Помогите пожалуйста решить. Я в программировании совсем еще новичок и не понимаю немного.
Задан вектор A=(a1,...,an).
Сформировать вектор B=(b1,...,bm) из элементор ai(i=1 до n) вектора А, удовлетворяющих условию c=<ai=<d
|
Ну ладно, учитесь:
Код:
Const
N=18;
c=5;
d=14;
Var
A,B:Array[1..N] of Integer;
M,i:Integer;
Begin
M:=0;
Randomize;
Writeln('c = ',c);
Writeln('d = ',d);
Writeln;
Writeln('Array A:');
for i:=1 to N do
begin
A[i]:=Random(20);
write(A[i]:4);
end;
writeln;
writeln;
Writeln('Array B:');
for i:=1 to N do
if (A[i]>=c) and (A[i]<=d) then
begin
M:=M+1;
B[M]:=A[i];
end;
for i:=1 to M do
write(B[i]:4);
Readln
End.