Типізовані файли, цікаво як так можна.

[--Sashok--]

Задача:
Створити файл цілих чисел (кілікість елементів файлу та самі елементи вводяться з клавіатури).Переписати його вміст у файл g у зворотньому порядку!

Ось що я написав:

program chusloooo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var chusl,n,i:integer;
    zvorot: file of integer;
begin
    assign (zvorot,'f');
    rewrite(zvorot);
    writeln('Vvedit kilkist elementiv -');
    readln(n);
    writeln('Vvedit chusla: ');
    for i:=1 to n do
        begin
                write('  ');
                readln(chusl);
                write (zvorot,chusl);
        end;
    close (zvorot);

rewrite(zvorot,'g');




end.

[whatever]

Шпрехен зе русишь? А то полный нихт ферштейн.

[--Sashok--]

вахах))

Ща условие по рус!

задача:
Создать файл целых чисел (количетсво элементов файла и сами элементы вводятся с клавиатуры). Переписать его содержимое в файл g в обратном порядке!

Вот что я написал:

program chusloooo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var chusl,n,i:integer;
    zvorot: file of integer;
begin
    assign (zvorot,'f');
    rewrite(zvorot);
    writeln('Vvedit kilkist elementiv -');
    readln(n);
    writeln('Vvedit chusla: ');
    for i:=1 to n do
        begin
                write('  ');
                readln(chusl);
                write (zvorot,chusl);
        end;
    close (zvorot);

rewrite(zvorot,'g');




end.