Расположить элементы массива в обратном порядке - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Расположить элементы данного массива в обратном порядке,(первый элемент меняется с последним,второй с предпоследним и т.д.) (Решить задачу,организуя чтение исходных данных из файла данных и вывод результата в файл данных.) Помогите найти ошибку.. Программа:
Program lab6;
var A:array [1..100] of longint;
    n,c,i:integer;
    input,output:text;
begin
 assign(input,'comp.in');
 assign(output,'comp.out');
 reset(input);
 readln(input,n);
 rewrite(input);
 for i:=1 to n do
 begin
  readln(input,A[i]);
 end;
 for i:=1 to n div 2 do
 begin
  c:=a[i];
  a[i]:=a[n+1-i];
  a[n+1-i]:=c;
 end;
 for i:=1 to n do
 writeln(output,A[i]);
 close(input);
 close(output);
end.

Решение задачи: «Расположить элементы массива в обратном порядке»

textual
Листинг программы
Program lab6;
var A:array [1..100] of longint;
    n,c,i:integer;
    input,output:text;
begin
 assign(input,'comp.in');
 assign(output,'comp.out');
 reset(input);
 rewrite(output);
 read(input,n);
 for i:=1 to n do
 read(input,A[i]);
 close(input);
 for i:=1 to n div 2 do
  begin
   c:=a[i];
   a[i]:=a[n+1-i];
   a[n+1-i]:=c;
  end;
 for i:=1 to n do
 write(output,' ',A[i]);
 close(output);
end.

Объяснение кода листинга программы

  1. Объявляются переменные: A (массив), n (количество элементов), c (временная переменная), i (номер элемента).
  2. Устанавливаются начальные значения для ввода/вывода: input (входной файл), output (выходной файл).
  3. Открывается входной файл и считывается количество элементов.
  4. Считываются элементы массива в цикле.
  5. Закрывается входной файл.
  6. В цикле выполняется перестановка элементов массива, начиная с индекса 1 и до (n/2)-1.
  7. В каждой итерации внутреннего цикла происходит обмен элементов с помощью временной переменной c.
  8. Закрывается выходной файл.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы