Формирование двух списков из одного с условием. Pascal

[iamhated]

Сформировать списки L1 и L2 из списка L по следующему правилу: в L1 четные положительные элементы списка L, в L2 - нечетные отрицательные элементы списка L. Подсчитать количество компонентов в списках L1 и L2.

Делал без списков, а переделать что бы было со списками не получается

var
 q,w,e:array[1..10] of integer;
 i,a,s:integer;
begin
 a:=1;
 s:=1;
 for i:=1 to 10 do
 begin
   q[i]:=10-random(20);
   write(q[i]:5);
   if (q[i]>0)and(q[i] mod 2=0) then
   begin
    w[a]:=q[i];
    inc(a);
   end;
   if (q[i]<0)and(q[i] mod 2<>0) then
   begin
    e[s]:=q[i];
    inc(s);
   end;
 end;
 writeln;
 writeln;
 for i:=1 to a do
  if w[i]<>0 then
  write(w[i]:5);
  writeln;
 for i:=1 to a do
  if e[i]<>0 then
  write(e[i]:5);
  writeln;
 readln;
end.

[ViktorR]

Среди книг по Паскалю есть книга Т.А. Павловской (см. список литературы в разделе Паскаль).

http://www.programmersforum.ru/showt...?t=8324&page=9

В этой книге есть пример работы со списком.
Там написаны функции по созданию списка, добавлению элеменов в список и т.д. Почитай и попробуй. Будет полезное занятие.



Как-то так ...

[phomm]

Далеко ходить не надо. Прикрепленная тема раздела - http://programmersforum.ru/showthread.php?t=70310 - там большая часть требуемой теории в виде решенных примеров есть.