Где моя ошибка не могу найти

[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\файл11 1.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.

[ZX Spectrum-128]

Программа отработает неверно, если элемент массива=0

const
  n = 5;
var
  f : file of integer;
  x,y,i : integer;
  z : array [1..n] of integer;
begin
  assign(f,'file.dat');
  rewrite(f);
  for i := 1 to n do
    begin
      write ('z[',i,']=');
      readln(z[i]);
      write(f,z[i]);
    end;
  close(f);

  reset(f);
  i := 1;
  x := 0;
  y := 0;
  while not eof(f) do
    begin
      read(f,z[i]);
      if z[i] mod 2 = 0 then
        inc(x)
      else
        inc(y);
      inc(i);
    end;
  if x > y then
    writeln('chetnyh >')
  else
    if y > x then
      writeln('nechetnyh >')
    else
      writeln('=');
  readln;
end.

[sisaw]

Сообщение от ZX Spectrum-128

Программа отработает неверно, если элемент массива=0

const
  n = 5;
var
  f : file of integer;
  x,y,i : integer;
  z : array [1..n] of integer;
begin
  assign(f,'file.dat');
  rewrite(f);
  for i := 1 to n do
    begin
      write ('z[',i,']=');
      readln(z[i]);
      write(f,z[i]);
    end;
  close(f);

  reset(f);
  i := 1;
  x := 0;
  y := 0;
  while not eof(f) do
    begin
      read(f,z[i]);
      if z[i] mod 2 = 0 then
        inc(x)
      else
        inc(y);
      inc(i);
    end;
  if x > y then
    writeln('chetnyh >')
  else
    if y > x then
      writeln('nechetnyh >')
    else
      writeln('=');
  readln;
end.

так он все равно просит ввести с клавы а не берет из файла

[ZX Spectrum-128]

Вы вводите элементы массива с клавиатуры. Если не нравится, сделайте рандомное заполнение.

[sisaw]

Сообщение от ZX Spectrum-128

Вы вводите элементы массива с клавиатуры. Если не нравится, сделайте рандомное заполнение.

рондомное мне сказали нельзя использовать им надо по другому.

[sisaw]

Сообщение от ZX Spectrum-128

Вы вводите элементы массива с клавиатуры. Если не нравится, сделайте рандомное заполнение.

program xxx;

const n = 5;

var
f : file of integer;
x,y,i : integer;
z : array [1..n] of integer;
path : string;


begin

assign(f,'C:\Users\яяя\Desktop\ффф1 11.txt');
rewrite(f);
randomize;
x := 0;
y := 0;
for i := 1 to n do
begin
z[i] :=random(10)+1;
write(f,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.


у меня вот как было, но мне сказали сделать без рондома, а выводит он у меня вот так
Больше нечетных
1 1 9 6 10
мне так же надо

[ZX Spectrum-128]

Тогда разделите программу на две. Одна на создание, вторая на подсчет.
Еще вывести массив нужно? Так добавьте вывод массива.

[sisaw]

Сообщение от ZX Spectrum-128

Тогда разделите программу на две. Одна на создание, вторая на подсчет.
Еще вывести массив нужно? Так добавьте вывод массива.

все теперь дошло спасибо