одномерные массивы, помогите решить!"!!!! Опции

[tatyana]

№1дан массив А(m). из элементов, больших 220, сформировать массив В.
№2дан массив В(10). сформировать новый массив таким образом, чтобы после каждого четного элемента массива вставить дополнительный элемент со значением 1, а после нечетного -1.пожалуйста, напишите полные программы,завтра контрольная.....

[klem4]

Надо бы отправить тебя в FAQ .. ну да ладно, держи :

1)

uses crt;
const
   n = 10;
var
   a,b : array[1..n] of integer;
   i,t : byte;

begin
   clrscr;
   t := 0;
   for i := 1 to n do begin
      write('a[',i,']='); readln(a[i]);
      if a[i] > 220 then begin
         inc(t);
         b[t] := a[i];
      end;
   end;

   writeln;

   for i := 1 to t do writeln('b[',i,']=',b[i]);

   readln
end.

2)

uses crt;
var
   b : array[1..100] of integer;
   i,t,n,size : byte;

begin

   clrscr;

   n := 5;
   size := 2*n;

   for i := 1 to n do begin
      write('b[',i,']='); readln(b[i]);
   end;

   writeln;

   {$R-}
   i := 1;
   while(i<=n) do begin
      if odd(n-i+1) then begin
         for t := succ(n) downto i+2 do b[t] := b[pred(t)];
         b[succ(i)] := 1;
         inc(n);
      end
       else begin
          for t := succ(n) downto i+2 do b[t] := b[pred(t)];
          b[succ(i)] := -1;
          inc(n);
       end;
      inc(i,2);
   end;


   for i := 1 to size do writeln('b[',i,']=',b[i]);

   readln
end.

[tatyana]

cпасибо огромное!!!!!

[klem4]

Незачто .. кстати что-бы не было лишних вопросов :

succ(i) - тоже самое что i := i + 1;
pred(i) - i := i - 1;

[volvo]

succ(i) - тоже самое что i := i + 1;
pred(i) - i := i - 1;

Правда? Мне всегда казалось, что Pred(i) = i - 1 и Succ(i) = i + 1, но i при этом никоим образом не меняется...

[klem4]

/offtop


Volvo я же говорю, когда-нибудь из-за таких как я взорвется АЭС