Из н натуральных чисел вычеслить суму и произведение(Pascal)

[Chibi]

помогите решить задачи,пожалуйста.
если ещё хоть как-то объясните от куда что берётся в решении будет просто замечательно.
очень нужна помощь, т.к. самая в программировании ноль..
Буду очень благодарна за помощь

1.даны натуральные число n ,действительные числа а1,....аn. вычислить суму и произведение елементов от а1 до аn



2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!

спасибо заранее

[ROMA2PVT]

на какую тему задания?

[Chibi]

пошаговый ввод данных и вывод результатов

[Ybn2]

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

1.даны натуральные число n ,действительные числа а1,....аn. вычислить суму и произведение елементов от а1 до аn

2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!

спасибо заранее

Задача 1.

Program Zadacha1;
const n=10;{количество чисел n = 10}
Var
   a:array [1..n] of real;
   i,sum,pr:integer;
Begin
{Вводим числа}
  For i:=1 to n do 
   Begin
     Write ('Введите ',i,'элемент: ');
     ReadLn (a[i]);
   End;
{вычисляем сумму sum и произведение pr}
  sum;=0; pr:=1;
  For i:=1 to n do
    Begin
       sum:=sum+a[i];
       pr:=pr*a[i];
    end;
  WriteLn ('Сумма чисел равна: ',sum);
  WriteLn ('Произведение равно: ',pr);
  ReadLn;
end.

Должно работать, может где то с лексикой ошибся.

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

2.дано натуральное число n , получить последовательность а1,....аn, где при i=1, 2,......,n значение равно 2^i/i!

Задача 2:

Program Zadacha2;
Var
   i,n:integer;
Function fact (n:integer):integer; {Функция вычисления фактериала}
Var i:integer;
Begin
  Fact:=1;
  For i:=1 to n do Fact:=Fact*i;
end;
Begin
   Write ('Введите n: ');
   ReadLn (n);
   WriteLn ('Последовательность An=2^(i/i!): ');
    For  i:=1 to n do
      WriteLn ('A',i,' = ',Exp(i/Fact(i)*ln(2)); {Вычисление степени}
   ReadLn;
end.

[Chibi]

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

[Ybn2]

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

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

Я писал не проверяя, все правильно? Если будут еще вопросы пишите мне на маил: planetdigits@mail.ru

[Chibi]

Я ещё если честно не проверяла работает ли программа, ну с ошибками я думаю разберусь если будут, мне главное есть в чём разбираться, сама то не понимаю как писать эти задачи)
спасибо ещё раз за помощь)
думаю напишу на мэил,т.к. задания ещё не все решила и застряла окончательно)