Вывод ответа #1864137925

leader6670, Замес реально адовый))
ну как-то так, накидал на скорую руку.

var 
  a, b, c: array [1..10] of integer;
  i, j, k, n: byte;

begin
  writeln('Введите кол-во элементов в массиве ');
  readln(n);
  for i:=1 to n do begin
      a[i]:=random(100);
      writeln(a[i], ' ');
    end;
  j:=1; k:=1;
  for i:=1 to n do begin
      if (a[i] mod 2=0) then begin
          b[j]:=a[i];
          inc(j);
        end
      else begin
          c[k]:=a[i];
          inc(k);
        end;
    end;
  writeln('Четные числа');
  for i:=1 to n do write(b[i], ' ');
  writeln('Нечетные числа');
  for i:=1 to n do write(c[i], ' ');
end.

Кстати, если элементов будет не больше 10 - еще ладно, а если больше?
Может тебе лучше динамический массив заюзать? В турбопаскале их, по моему нет, в делфи есть - юзай.


Я таки дам код, пусть уж в пример посмотрит. Если захочет понять - поймет, не захочет - его дело.
Сортировку сам сделает)