Динамические структуры данных

[Firgat13]

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

[Arigato]

Добавление и удаление элементов из списка - примеры из учебника. Берите и делайте, проблем быть не должно.

[Firgat13]

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

[Firgat13]

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next:ptr;
          end;
var p,q,first,l:ptr;
    n,i,k:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
writeln('Введите первый элемент от 0 до 99');
new(p);
first:=p;
p^.next:=nil;
repeat
 readln(a);
until a in [0..99];
p^.key:=a;
q:=p;
writeln('Введите остальные числа от 0 до 99');
for i:=2 to n do
 begin
  new(p);
  repeat
  readln(a);
  until a in [0..99];
  p^.key:=a;
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
//выводим его на экран
writeln('Исходный список');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
//вставляем суммы цифр после элементов с четными номерами
p:=first;
i:=0;
while p<>nil do
 begin
  k:=p^.key; //смотрим значение
  i:=i+1;    //его номер в начальном списке
  if i mod 2=0 then //если номер четный
   begin
    new(l);
    q:= p^.next;
    p^.next:=l;
    l^.next:=q;
    l^.key:=k div 10+k mod 10;//сумма цифр 1 и 2 значных чисел (0..99);
    p:=l^.next;
   end
  else  p:=p^.next; //если номер нечетный дальше
 end;
//выводим полученный список
writeln('Вставка суммы цифр после элементов с четными номерами');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Firgat13]

вроде так но нужно сделать рандом случайных чисел а не самому вводить

[Serge_Bliznykov]

сделать рандом случайных чисел а не самому вводить

а остальное всё работает?!
Так нет ничего проще.
замените

  repeat
    readln(a);
  until a in [0..99];

на код:

  a := Random(100);

и всё!

[Firgat13]

дальше тоже есть проблемы с нахождением четных чисел

[Vanta11a]

И в чем проблема? Операция mod в помощь.

[Вадим Мошев]

Сообщение от Vanta11a

И в чем проблема? Операция mod в помощь.

или функция odd(x)