Паскаль...Файлы, Одномерные массивы

[Extrem_um]

Общее условие :Написать алгоритм и программу, которые исходный числовой массив данных(если он есть) считывают из текстового файла f1, а выходную информацию записывают в текстовый файл f2. Произвести тестирование программы.
Само задание: Дан массив X с четным числом элементов.Произвести перестановку элементов по следующей схеме.(см. прикрепленное изображение, нарисовал в пэинте, т.к. незнал как иначе).

Заранее спасибо!!!!

[Stilet]

Ну выкладывай наработки.

[Extrem_um]

я бы с удовольствием выложил, если бы хоть чё то понимал в этом Паскале, да и вообще в программировании!!! мы паскаль 1 семестр проходим в инстике, вот мне бы как-нибудь отмучиться и всё....

[Stilet]

Ну ты хотяб порыскал поиском по форуму и статьям, тут уже такие задачи были.

[Extrem_um]

Сообщение от Stilet

Ну ты хотяб порыскал поиском по форуму и статьям, тут уже такие задачи были.

не могу найти

[Extrem_um]

Что никто не может помочь!??!?!?!??!плиз, срочно надо!!!!

[SNUPY]

Что никто не может помочь!??!?!?!??!плиз, срочно надо!!!!

Ну хоть алгоритм решения предложите

[Extrem_um]

Сообщение от SNUPY

Ну хоть алгоритм решения предложите

блин, я даж не представляю и не понимаю о чём здесь ведётся речь....я воще в программировании ничего незнаю!!!мне бы как нибудь выжить этот семестр(((и всё, больше не будет информатики у меня, поэтому и обратился к программистам, на этот форум!

[Extrem_um]

UP!АП!UP!АП!UP!АП!UP!АП!UP!АП!

[Alter]

1) Непонятно это(если файл текстовый, то числа например будут построчно. Какая должна быть выходная информация????):

Общее условие :Написать алгоритм и программу, которые исходный числовой массив данных(если он есть) считывают из текстового файла f1, а выходную информацию записывают в текстовый файл f2. Произвести тестирование программы.

Можно ли использовать типизированные файлы, для f1,f2?
Что хоть она должна делать, неужели только копировать из первого во вторй числа? {Поподробнее если можно.}

2) Задача_2:

Uses CRT;
Const MaxL = 16;
Var A :Array[1..MaxL] of Integer;
    I,Buf :Integer;
begin
 ClrScr;
 {-= Zapolnenie=-}
  Randomize;
 For I:=1 To MaxL Do
  A[I] := Random(255)+1;
 {-=Vivod ishodnogo massiva=-}
 For I:=1 To MaxL Do
 Write(' ',A[I]);
  Writeln;
 {-=Perestanovka=-}
 For I:=1 To (MaxL div 2) Do
 begin
  Buf := A[MaxL-I+1];
   A[MaxL-I+1] := A[I];
  A[I] := Buf;
 end;
 {-=Vivod ishodnogo massiva=-}
 For I:=1 To MaxL Do
 Write(' ',A[I]);
  Writeln;
 READLN;
end.

___________________________________ _____________________________
++Me