паскаль и турбо паскаль

[Евгения Игоревна]

помогите решить 2 задачи

1.задан массив натуральных чисел размером 30 элементов опишите на русском или одном из языков программирования алгоритм получения из него другого массива. который будет содержать факториалы значений элементов первого массива, но выстроенных в обратном порядке

2.на входе программе подается последовательность символов, состоящая из букв латинского алфавита и цифр. ввод символов заканчивается точкой.
требуется написать как можно более эффективную программу, которая состоит из всех цифр, встретившихся в строке и не равных нулю, формирует наименьшее число (без повторов) и выводит на экран число, равное синусу полученного числа. если таких цифр нет, то программа выводит нуль.
пусть, например, на входе программе поданы следующие символы: a1ab1ac1ad2ae4r4
в данном случае программа должна вывести sin(124)=-0,995686

[kompaky]

А ваши наработки?
Прочтите особенно пост 2

[Евгения Игоревна]

for k:=n downto 1 do begin
b[k]:=1;
for j:=1 to a[n+1-k] do
b[k]:=b[k]*a[n+1-k]
end;
это к 1. а как подойти ко 2 вообще не знаю((((

[Mad_Cat]

2) переменные сами описывайте

a:=['0'..'9'];
b:=[];
ch:=0;
for i:=1 to length(s) do
if (s[i] in a) and not (s[i] in b) then begin
b:=b+[s[i]];
ch:=ch*10+ord(s[i])-ord('0');
end; 
writeln(sin(ch));

1)

function fact(n : integer) : longint;
  begin
    if n <= 1 then
      fact := 1
    else
      fact := n * fact(n - 1);
  end;
{|||||}
for i:=n downto 1 do begin
b[n-i+1]:=fact(a[i]);
{|||||}

[Евгения Игоревна]

спасибо большое) Mad_Cat

[Vanta11a]

Попробуйте множества.
Встретилось число - проверили на наличие во множестве, если его там нет - добавили в множество, добавили в строку, если есть - проигнорировали, идем дальше.
Потом строку переводите в число и считайте синус от полученного числа.

upd:
я медлителен

[Евгения Игоревна]

Vanta11a спасибо!