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

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

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.

Похожие ответы
  1. Всем привет. У меня очередная проблемка - по заданию нужно выводить число при вводе через консоль только в том случае, если оно равно другому числу. Т.е. например если введено число "А" и оно совпадает с "Б" то "А" должно выводиться. Но если "А" не равно "Б", то оно выводиться не должно. А при обычном вводе через "readln" оно выводится всёравно (точнее в консоли остаётся). Мне нужно чтобы если "А" не равно "Б", то предыдущая строка консоли удалялась. "crt" не помогло. Заранее спасибо за ответДобавлено через 8 минут Задача выглядит так: Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующей ей символ должен появиться на экране только в том случае, если этот символ является одной из из цифр предыдущего числа. Сам код выглядит так:

  1. Собственно задание - Решить нелинейные уравнения методом Зейделя. Вся проблема в передаче значения в функцию. Давно не писал коды на Паскале , может что забыл. Просьба запустить и указать на ошибку.

  1. Разложить число п на простые делители, подсчитывая при этом, сколько раз встречается один и тот же простой делитель, а также вычислить сумму этих делителей

  1. У мальчика было 2 яблока он хотел отдать их своим друзьям, но у него N друзей. Определить сколько возможных вариантов может быть разделить 2 яблока среди друзей из N. условие 2>=N<=200000000 (Яблоки принять как не делимый предмет, у друга может быть только 1 целое яблоко)

  1. Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля. Прошу помочь , не разбираюсь в массивах , завтра сдавать , а я не че не знаю

  1. Нужно заполнить двумерный массив размерами 3х3 именами ваших друзей

  1. Заменить буквой «a» все элементы, расположенные выше главной диагонали и не являющиеся цифрами.

  1. Вообшем возникло пару проблем с решением нескольких курсовых задач: 1)(множество): Вычислить масив y(i)=trunc(30*abs(sin(i)) для i=(1..200). Составить множество из повторяющихся значений y, записать его елементы в текстовый файл, и вывести на екран. 2)(Динамический масивы): Динамично распределить память для использующихсяв программе одновымернних масивов. Исходные данные ввести из текстового файла. Нужные действия оформить в виде подпрограмм. Полученные данные вивести в текстовый файл. Задан масив целых чисел N(m)=(1,5,-3,3,15,21,8,-5). Необходимо сформировать из положительных и отрицательных его елементов массивы А и С и отсортировать по убыванию абсолютных величин при m=8. 3)(Линейные списки): Исходные данные ввести из текстового файла. Полученный список и результаты вывести в текстовый файл. Составить линейный список из М=5 елементов: -Строка длиной 50 из случайных латинских букв и пробелов -Количество слов в строке Словом щитаеться група символов до пробела. Вычислить количество слов. Заменить все пробелы на '_'. Буду благодаренных и за одну из етих программ. P.S Извените за ошибки учусь в Украине а задания на русском...Добавлено через 4 часа 59 минут Все данные которые нужно ввести с текстового файла можно придумать самому.Добавлено через 18 часов 27 минут помогите плиз.. курсак всётаки... сам не зделаю...

  1. Составить процедуру подсчета суммы элементов в одномерном массиве. С помощью этой процедуры подсчитатать суммы строк произвольно заданной матрицы A. Вывести номер строки с максимальным значением суммы.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика