Объяснение:
Не знаю какой язык ЯП, поэтому:
Допустим у тебя не список, а массив, по сути то же самое
Создаёшь второй массив той же длинный
Заполняешь его нулями через for
Снова пишешь цикл for по первому массиву, через оператор if проверяешь делиться ли число на 3. Если не делится пишешь условие что во второй массив засовываешь число.
Делаешь третий цикл for, и если число не равно нулю то записываешь в третий массив, с использованием continue, иначе делаешь break.
2) Опять делаешь массив for, и если число меньше семи выводишь, иначе делаешь break.
const n=15;var a:array[1..100] of integer;i,k:byte;beginfor i:=1 to n do begina[i]:=random(9);write(a[i]:2);end;for i:=1 to n do beginif a[i]=0 thenbeginwriteln;k:=i;writeln('первый нулевой элемент i=',k);break;end;end;end.