Реверс массива неизвестной длины - Pascal

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

Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая выполняет реверс массива целых чисел, то есть переставляет все элементы в обратном порядке. Размер массива заранее неизвестен. Исходные данные записаны в файл input.txt , обработанный массив нужно вывести в файл output.txt . Входные данные Первая строка входного файла input.txt содержит размер массива. Во второй строке записаны все элементы массива, разделённые пробелами. Выходные данные Программа должна вывести в файл output.txt все элементы «перевёрнутого» массива в одной строке, разделив их пробелами. Примеры входные данные 5 5 1 4 2 3 выходные данные 3 2 4 1 5

Код к задаче: «Реверс массива неизвестной длины - Pascal»

textual
var
  i,j,n:longint;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(n);
  close(input);
  while n>0 do begin
    reset(input);
    for i:=0 to n do read(j);
    write(j,' ');
    n:=n-1;
    close(input);
  end;
  close(output);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ