Создайте файл 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.