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

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

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);


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