динамические структуры данных.линейные списки.

[Firgat13]

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

[Serge_Bliznykov]

чем помочь? Что не получается? Вы поиском пройдитесь по форуму, найдите пример реализации линейного списка (кстати, они бывают односвязные (однонаправленыые) и двухсвязные (двунаправленные) - Вы определитесь какой нужен Вам.)
Разберите пример, измените под свои требования.
Отладьте.
Если приложить руки - всё не очень сложно!

[Donald Ervin Knuth]

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

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

program nom29;
type 
masiv=array[1..100] of integer;
var
odin,dva:real;
bam:boolean;
fit:string;
code,t,n,i:integer;
{ran:real;}
w,m:masiv;
begin
  bam:=true;
  t:=1;
  write('Введите N= '); readln(n);
  write('Получилcя ряд случайных чисел=');
  for i:=1 to n do
       begin 
       m[i]:=random(99); 
       write(m[i]);write(',');
       end;
       for i:=1 to n do
        if odd(m[i])=bam 
          then
          begin
          w[t]:=m[i];
          t:=t+1;
          end
          else
          begin {-- все сделаем через одно место--}
            str(m[i],fit);
            val(fit[1],odin,code);
            val(fit[2],dva,code);
            w[t]:=m[i];
            w[t+1]:=trunc(odin+dva);{-- из real в integer---}
            t:=t+2;
          end;
          {--вывод готового массива--}
         write('Ряд случайных чисел после преобразования=');
          for i:=1 to t do
          begin
          write(w[i]);write(',');
          end;
          
end.

[Serge_Bliznykov]

masiv=array[1..100] of integer;

массив и список это далеко не одно и то же..

впрочем, неважно, думаю, что автор темы давно уже потерял к ней интерес...

[newbieee]

значения элементов выбирать из диапазона от 100 до 999). Удалить
все элементы списка, содержащие в записи цифру 0.

Можете помочь с этим? :-)

[Stilet]

Создай отдельно свою тему. Не лезь в чужую.

[Firgat13]

спасибо за то что ответили и помогли)

[Firgat13]

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

[Firgat13]

Введите N= 5
Получилcя ряд случайных чисел=41,36,33,75,38,Ряд случайных чисел после преобразования=41,36,9,33,75,38,11, 0,
Почему в конце ноль получается ?