program EXAM15;

{$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,miny:real;
begin
writeln('Vvedite kol-vo to4ek:');
readln(n);
for i:=1 to n do begin
write('x: ');readln(t[i].x);
write('y: ');readln(t[i].y);
end;
miny:=t[1].y; maxx:=t[1].x;
for i:=1 to n do begin
if t[i].x>maxx then maxx:=t[i].x;
if t[i].y end;
assign(f,'c:\f.dat');
rewrite(f);
for i:=1 to n do
if (t[i].x=maxx) or (t[i].y=miny) 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[i]);
writeln(t[i].x,' ',t[i].y);
end;
close(f);
readln;
end.





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