Технический форум - Помощь в паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помощь в паскале (http://www.tehnari.ru/f41/t100027/)

Помощь в паскале

Доброго времени суток.
Помогите пожалуйста решить. Я в программировании совсем еще новичок и не понимаю немного.
Задан вектор A=(a1,...,an).
Сформировать вектор B=(b1,...,bm) из элементор ai(i=1 до n) вектора А, удовлетворяющих условию c=<ai=<d

Цитата:

Сообщение от Undead (Сообщение 1087459)

Ну ладно, учитесь:

Код:

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.

Цитата:

Сообщение от Vladimir_S (Сообщение 1087484)

Ну ладно, учитесь:

Спасибо большое :)