sisaw

Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонентов файла f, и определите, каких из них больше (почему то ввод с клавы а надо из файла)




program xxx;

const n = 5;
var
f : file of integer;
x,y,i : 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
write ('z[',i,']=');
readln(z[i]);
if z[i] mod 2 = 0 then
inc(x)
else
inc(y);
end;
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;
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);
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.