program EXAM2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type coordinate=record
x,y:real;
end;
var t:array[1..20] of coordinate;
f:file of coordinate;
n,i:integer;
maxx,minx:real;
begin
readln(n);
for i:=1 to n do begin
write('x: ');readln(t[i].x);
write('y: ');readln(t[i].y);
end;
minx:=t[1].x; maxx:=t[1].x;
for i:=1 to n do begin
if t[i].x>maxx then maxx:=t[i].x;
if t[i].x end;
assign(f,'c:\f.dat');
rewrite(f);
for i:=1 to n do
if (t[i].x=maxx) or (t[i].x=minx) then write(f,t[i]);
close(f);
writeln('massiv:');
for i:=1 to n do
writeln(t[i].x:4:1,' ',t[i].y:4:1);
writeln('fail: ');

reset(f);
while not eof(f) do begin
read(f,t[1]);
writeln(t[1].x,' ',t[1].y);
end;
close(f);
readln;
end.

Случайные файлы

Файл
diada.txt
README.TXT
ReadMe.txt
13.TXT
XML_EX.TXT




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.