задача:
Компоненты типизированого файла -целочисленные массивы, состоящие из 4 элементов. Сформировать новый типизированный фаил из четных элементов этих массивов, имеющих чётные индексы!
помогите решить!! а то ваще тупняк...
type
arrType = array[1 .. 4] of integer;
fileType = file of arrType;
var
f_in: fileType;
f_out: text;
X: arrType;
i: integer;
begin
assign(f_in, '_in.dat');
reset(f_in);
assign(f_out, '_out.txt');
rewrite(f_out);
while not eof(f_in) do begin
read(f_in, X);
for i := 1 to 4 do
if (not odd(i)) and (not odd(X[i])) then
write(f_out, X[i], ' ');
writeln(f_out);
end;
close(f_out);
close(f_in);
end.
assign(f_in, '_in.dat');
reset(f_in);
assign(f_in, '_in.dat');
rewrite(f_in);
for i := 1 to 10 do begin
for j := 1 to 4 do
X[j] := random(30);
write(f_in, X);
end;
reset(f_in);