Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n)

@Sabr · Регистрация: 21.10.2012

Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. Простая задача). (решение таких задач в интернете много, но все они с вводом данных, и выводом их на экран).
Считывание элементов происходит из файла (input.txt). элементы в файле расположены построчно. И запись массивов тоже в файл. (output.txt). 1 строка количество элементов в 1-м массиве, 2 строка элементы через пробел. 3 строка кол-во элементов в 2-м массиве, 4 строка сами элементы этого массива. среда программирования PASCAL ABC. Проблемы с оформлением.
сама логика:

Pascal

...
for i:=1 to n do
 if a[i] mod 2=0 then
  begin
   k1:=k1+1;
   b[k1]:=a[i];
  end
 else
  begin
   k2:=k2+1;
   c[k2]:=a[i];
  end;...

@Sabr · 22.10.2012, 12:27 **[ТС]**

не могу понять как данные из файла считать (собрать) в массив.

Добавлено через 20 часов 32 минуты
Похоже мне никто не поможет...жаль...

Добавлено через 1 минуту
я сам выполнил):

Pascal

var a,b,c:array[1..100] of integer;
    i,j,n,k1,k2:byte;
    f_in, f_out: text;
begin
assign (f_in,'is1129-01.in');
assign (f_out,'is1129-01.out');
reset (f_in);
rewrite(f_out);
n:=1;
while not eof(f_in) do
   begin
      readln (f_in,a[n]);
      inc(n);
   end;
dec(n);
 
for i:=1 to n do
 if a[i] mod 2=0 then
  begin
   k1:=k1+1;
   b[k1]:=a[i];
  end
 else
  begin
   k2:=k2+1;
   c[k2]:=a[i];
  end;
Writeln(f_out,k1);
for i:=1 to k1 do
   Write(f_out,b[i],' ');
Writeln(f_out);
Writeln(f_out,k2);
for i:=1 to k2 do
   Write(f_out,c[i],' ');
 
 
close (f_in);
close (f_out);
end.

Опции темы