Помощь студентам

[Янка88]

1. Составьте программу заполнения одномерного массива пятью элементами, которые вычисляются по формуле А(N)=1/N!
2. Составьте программу вычисления квадрата суммы положительных элементов одномерного массива А(N), заполнив его случайным образом.
3. Составьте программу удаления отрицательных элементов одномерного массива А(N).

[ZX Spectrum-128]

2.

For i:=1 to n do
 A[i]:=random;
Sum:=0;
For i:=1 to n do
 If a[i]>0 then
  Sum:=sum+a[i];
Sum:=sqr(sum);

[type_Oleg]

1.

 a[1]:=1;
 for n:=2 to 5 do a[n]:=a[n-1]/n;