Задать вопрос
6 мая, 02:16

Нужна помощь с информатикой! В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания

+5
Ответы (1)
  1. 6 мая, 06:01
    0
    Var

    {Файл 1. txt необходимо создать }

    n, i, j, c1:integer;

    a:array[1 ... 100] of integer;

    f:text;

    begin

    {чтение данных с файла 1. txt}

    assign (f,'1. txt') ; reset (f) ;

    i:=0;

    while not eof (f) do

    begin

    i:=i+1;

    read (f, a[i]) ;

    end;

    n:=i;

    close (f) ;

    {Сортировка}

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if a[i]>a[j] then

    begin

    c1:=a[j];

    a[j]:=a[i];

    a[i]:=c1;

    end;

    {вывод в файл 2. txt отсортированного массива}

    assign (f,'2. txt') ; rewrite (f) ;

    for i:=1 to n do

    write (f, a[i]:5) ;

    close (f) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужна помощь с информатикой! В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дан текстовый файл с именем input. txt в первой строке которого записано натуральное число N, а во второй строке N целых чисел. Переписать в файл с именем a. dat числа, кратные 100 из исходного файла, а в файл с именем b.
Ответы (1)
Помогите! 1. Web-страница (документ html) представляет собой: 1) текстовый файл с расширением txt или doc 2) текстовый файл с расширением htm или html 3) двоичный файл с расширением com или exe 4) графический файл с расширением gif или jpg
Ответы (2)
Открыть в редакторе Microsoft Word произвольный текстовый файл (без графических элементов), определить количество символов в этом файле, включая пробелы (команда Файл - " Свойства), и вычислить количество информации в этом файле.
Ответы (1)
Pascal ABC Дан текстовый файл t1. txt, содержащий целые числа, не превышающие 30000. Найти длину самой длинной цепочки одинаковых чисел, идущих подряд в файле t1. txt и записать эту цепочку в файл t2.
Ответы (1)
Создать текстовый файл f1. Конкатенировать файл f 1 самого с собой, только записанного задом наперед и результат записать в файл f2. Вывести на экран файл f 2.
Ответы (1)