Работа с матрицами и файлами, Помогите написать две программы. Опции

[volvo]

Можно добавить:

reset(f);
while not eof(f) do begin
  read(f, arr[1]);
  write(arr[1]);
end;

можно отдельно написать...

А вообще-то, пора бы думать начать уже, это же все совершенно однотипное !!!

P.S.

в программе вводится только число элементов, но не они сами

Правда? Особенно вот тут:

write('a[', i:2, '] = '); readln(arr[1]);

что это делается?

ПО ЗАДАНИЮ не должно вводиться вообще ничего. Но должен быть готовый файл ЦЕЛЫХ, которого у тебя почему-то не оказалось...

[Guest]

Я все поняла, БОЛЬШОЕ спасибо

[Iren]

Не правильно у меня сделана сказали вторая программа надо было еще, что в наборе исходных данных указано имя данного файла (текстовая строка). Все исходные файлы в заданиях данной группы считаются существующими (при чем предполагается, что в файле не менее двух строк), но необходимо предусмотреть возможность изменения в них данных.
В качестве результатов работы программы необходимо вывести на экран содержание исходного и полученного файлов.
Помогите пожалуста, а то я уже окончательно запуталась и совсем ничего не понимаю...

[Guest]

Ну хотя бы намекните, что надо сделать...

[Iren]

Вот попыталась переделать, не знаю правильно ли (возникают вопросы насчет добавления файлов):

Код

program test;
uses crt;

label 1;
var
  arr: array[1 .. 100] of integer;
  i, n: integer;
  f: file of integer;
  s: string;
begin
  clrscr;
  assign(f, 'f_in.dat');
1:writeln('view file -  v / edit file - e / exit - x : ' );
  readln(s);
  if s = 'v' then
  begin
  reset(f);
  writeln('View file:');
  while not eof(f) do
    begin
      read(f, arr[n]);
      write(arr[n], ' ');
    end;
  readln;
  goto 1;
  end;
  if s = 'e' then
  begin
  reset(f);
  writeln('Enter number of elements: ');
  readln(n);
  writeln;
  writeln('Enter elements: ');
  for i := 1 to n do
    begin
      write('A[',i,'] : ');
      readln(arr[1]);
      write(f, arr[1]);
    end;
  close(f);

  assign(f, 'f_in.dat');
  reset(f);
  n := 0;
  while not eof(f) do
    begin
      inc(n); read(f, arr[n]);
    end;

  reset(f);
  for i := 1 to n div 2 + n mod 2 do
    begin
      write(f, arr[i]);
      if i <> (n - i + 1) then
      write(f, arr[n - i + 1]);
    end;
close(f);
goto 1;
end;
if s = 'x' then
end.