Четные - нечетные последовательности Опции

[Ivs]

Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT
[Задание:
Пусть задана последовательность из n (n Ј 100) целых чисел {a1, a2, ..., an} (1 Ј ai Ј 100), которая содержит m четных чисел и l - нечетных (m + l = n). Требуется получить последовательность из k пар (k = min(m, l)) {(x1, y1), (x2, y2), ..., (xk, yk)}, где x1, x2, ..., xk - взятые в порядке следования первые k четных членов последовательности {a1, a2, ..., an}, а y1, y2, ..., yk - взятые в порядке следования первые k нечетных членов последовательности {a1, a2, ..., an}.
Формат входных данных:
Входной файл INPUT.TXT состоит из двух строк. В первой строке содержится натуральное число n - длина последовательности. Во второй - идут целые числа a1, a2, ..., an, разделенные пробелами. Пример:
10
98 56 33 73 41 8 48 93 52 80
Формат выходных данных:
Выходной файл OUTPUT.TXT должен содержать последовательность {(x1, y1), (x2, y2), ..., (xk, yk)}, расположенную в одной строке файла, числа должны быть разделены пробелами. Если исходная последовательность не содержит ни одного четного или ни одного нечетного члена, т.е. k = 0, то в файл необходимо вывести цифру 0 (нуль).
Пример:
98 33 56 73 8 41 48 93

[trminator]

Похоже, я с ответом запоздал немного... на месячишко-полтора но вот мое решение(короткое, но исп. ДВА доп. массива, что при таких ограничениях на их длины не фатально).

program Ivs_question;
var A, B, given: array[1..100] of Byte;
    i, n, k1, k2, k: byte;
    input, output: text;

function min(a,b: byte): byte;
begin if a < b then min:=a else min:=b end;

procedure init_vars;
begin k1:=1; k2:=1; k:=1;
  assign(input,'input.txt');reset(input);
  assign(output,'output.txt'); rewrite(output) end;

begin init_vars;
  ReadLn(N);
  for i:=1 to N do Read(input,given[i]);

  for i:=1 to N do
    if given[i] mod 2 = 1 then begin
        A[k1]:=given[i]; inc(k1) end
    else begin
        B[k2]:=given[i]; inc(k2) end;
  k:=min(k1, k2)-1;
  if k=0 then Write(output,k) else
     for i:=1 to k do Write(output,B[i],' ',A[i],' ');
  close(input); close(output)
END.

В Паскале чуть-чуть не влезает на один экран(25 строк) ;)

Сообщение отредактировано: Altair - 5.11.2005 18:32