const n=6;
var
f : file of integer;
x,y,i,m : integer;
z : array [1..n] of integer;
begin
assign(f,'C:\Users\я\Desktop\файл111.txt');
rewrite(f);
Randomize;
for i:=1 to n do begin
m:= Random(50)+1;
Write(f,m);
end;
reset(f);
for i:=1 to n do
read(f,z[i]);
for i := 1 to n do
if z[i] mod 2 = 0 then
inc(x)
else
inc(y);
if x > y then
writeln('Больше четных')
else if y > x then
writeln('Больше нечетных')
else
writeln('Поровну');
reset(f);
i := 1;
while not eof(f) do
begin
read(f,z[i]);
write(z[i],' ');
inc(i);
end;
close(f);
readln;
end.
или наполнить файл вручную:
const n = 6;
var
f : file of integer;
x,y,i,m : integer;
z : array [1..n] of integer;
begin
assign(f,'C:\Users\я\Desktop\файл111.txt');
rewrite(f);
x := 0;
y := 0;
for i := 1 to n do
begin
readln(m);
Write(f,m);
end;
reset(f);
for i:=1 to n do
read(f,z[i]);
for i := 1 to n do
if z[i] mod 2 = 0 then
inc(x)
else
inc(y);
if x > y then
writeln('Больше чётных')
else if y > x then
writeln('Больше нечётных')
else
writeln('Поровну');
reset(f);
i := 1;
while not eof(f) do
begin
read(f,z[i]);
write(z[i],' ');
inc(i);
end;
close(f);
readln;
end.