File

[Junger]

накиньте идею.!

дан файл целых чисел,содержащий не менее 4-х элементов.Вывести первый,второй,предпоследний и последний элемент данного файла.

[Serge_Bliznykov]

язык какой?!

на Pascal

var f : file of integer;
   N, K : integer;
begin
    Assign(f,'MyFile.dat');
    Reset(f);
    N := FileSize(f);
    if N<4 then WriteLn('Файл слишком мал!')
    else begin
        Read(f,K);
        WriteLn('первый: ',K);
        Read(f,K);
        WriteLn('второй: ',K);
        seek(f,N-2);
        Read(f,K);
        WriteLn('предпоследний: ',K);
        Read(f,K);
        WriteLn('последний: ',K);
    end;
    Close(f);