Сформировать список из N целочисленных случайных элементов. Удалить из списка все элементы, содержащие делители числа N

[RomaBayn]

Помогите решить Pascal
1)Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 0 до 99). Вставить
после каждого нечетного элемента, звено содержащее количество звеньев с
четными элементами, идущими перед ним.
2)Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 2 до N). Удалить из
списка все элементы, содержащие делители числа N.

[Stilet]

Пробовал как-нибудь сам?

[RomaBayn]

Да пробывал не выходит не как...

[RomaBayn]

Поможете решить,а то не получается запарился этой задачей

[eoln]

Показывай как пробовал, а то есть подозрения, что нужно готовенькое

[RomaBayn]

Program ex1;
uses crt;
type Ptr=^count;
count=Record
Key:integer;
Next:ptr;
end;
var p,q,first,l:ptr;
n,i,j,k:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=0+random(99);
q:=p;
for i:=2 to n do
begin
new(p);
p^.key:=1+random(5);
p^.next:=nil;
q^.next:=p;
q:=p;
 end

Дальше как я правильно начал?

[Stilet]

я правильно начал?

Правильно. Теперь сделай вывод списка:

p:=first; while p<>ni do begin
 выводим элемент;
 p:=p^.next;
end;

[RomaBayn]

Вторую задачу сделайте!!!)))

[Stilet]

Ну что такое делители я не знаю, а вот удаление элемента может выглядеть так:

p:=first; l:=nil;
 while p<>nil do begin
 if p^.Key=чему--то then begin
  if l<>nil then l^.next=p^.next;
  dispose(p);
  p=l^.next;
 end else begin
  l:=p;
  p:=p^.next;
 end;
end;

Не проверял, но для односвязного списка должно сойти.

[Stilet]

Ну что такое делители я не знаю, а вот удаление элемента может выглядеть так:

p:=first; l:=nil;
 while p<>nil do begin
 if p^.Key=чему--то then begin
  if l<>nil then l^.next=p^.next;
  dispose(p);
  p=l^.next;
 end else begin
  l:=p;
  p:=p^.next;
 end;
end;

Не проверял, но для односвязного списка должно сойти.