паскаль...циклы и массивы...

[Верочка]

Циклы :
1.Даны натуральное число n и вещественные числа а1,a2, …, аn. Определить сумму квадратов этих чисел.
2.Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен ε.
Общий член ряда имеет вид: см.картинку
Массивы :
Найти сумму наибольшего и наименьшего элементов массива вещественных чисел массива Z(n)

[alex_fcsm]

1

var i,n,x:integer;
    sum:longint;
    
begin
writeln('Input n');
readln(n);
sum:=0;
for i:=1 to n do
 begin
  read(x);
  sum:=sum+sqr(x);
 end;
writeln('Summa:',sum);

end.

[alex_fcsm]

3

const m=15;
var i,min,max:integer;
    a:array[1..15] of real;
    
begin
for i:=1 to m do
 begin
  a[i]:=random(100);
  write(a[i],' ');
 end;
writeln;
min:=1;max:=1;
for i:=2 to m do
 if a[i]>a[max] then max:=i
    else if a[i]<a[min] then min:=i;
writeln('Summa:',a[max]+a[min]);
end.

[alex_fcsm]

2

var i:integer;
    sum,temp,eps:real;
    
begin
writeln('Input eps');
readln(eps);
sum:=0;
i:=1;
temp:=1/((3*i-2)*(3*i+1));
while abs(temp)>=eps do
 begin
  sum:=sum+temp;
  inc(i);
  temp:=1/((3*i-2)*(3*i+1));
 end;
 writeln('Summa',sum:8:5);
end.

[Верочка]

спасибо огромное...:-*