Я думаю для Вас это просто (2 задачи)

[nikemir]

Дорогие мои!!! Помогите слабому полу решить эти две на мой взгляд нерешаемые задачи. Первая задача посвещена массивам, а вторая процедуры и функции.
1 Задача
Дана последовательность целых чисел, в которой есть нулевые элементы.
Сформировать массив из номеров этих элементов.
2 Задача
Вычислить сумму: 1! + 2! + 3! ... + n!, используя функцию вычисления факториала числа k!

[Hacker19_90]

2) Ток не пойму для чего там число k

program fornikemir;
uses crt;
var
    i, n, res: integer;
function factor (chislo: integer): integer;
var 
    i: integer;
    temp: integer;
begin
    Temp := 1;
    if chislo = 1 then Temp := 1
    else
        for i := 1 to chislo do
        begin
            Temp := Temp*i;
        end;
    factor := Temp;
    
end;

begin
    res := 0;
    clrscr;
    Writeln('Введите число n:');
    Readln (n);
    for i := 1 to n do
    begin
        res := res + factor(i);
    end;
    Writeln (res);
    Readkey;
end;

как-то так помоему проверь!

[Hacker19_90]

Ну а первую задачу Кристина, ты можешь взять у Ивана Николенко или перейдя по этой ссылке
http://programmersforum.ru/showthread.php?t=111508