две задачи на Паскаль (вычислить значения ряда с заданной точностью и вычислить формулу по элементам массива)

[METFIss]

Не смог разобраться с двумя задачами по паскалю (5,6)
помогите пожалуйста

[Vanta11a]

Наработки? Цена, которую готовы заплатить?

[Stilet]

Не смог разобраться с двумя задачами по паскалю (5,6)

А попытки были?

[METFIss]

max = h(0)
For i = 1 To 9
If h(i) > max Then max = h(i)
TextBox1.Text = max
Next i
For i = 0 To 6
If g(i) < 0 Then g(i) = max
Next i
вот что-то надумал и то неправильно,точнее не для этого варианта рно чем то похоже

[METFIss]

вот для суммы s = 0
For i = 1 To 15
s = s + x ^ (2 * i) / 2 ^ i
Next i
только значения другие

[Аватар]

А паскаль где?

[Mad_Cat]

5)

sl:=y/a;
while abs(sl)>e do begin
s:=s+sl;
sl:=-sl*y/a;
end;

6)

b1:=f[1];b2:=f[1];       s:=0;
for i:=1 to n do begin
if f[i]<b1 then b1:=f[i];
if f[i]>b2 then b2:=f[i];
s:=s+f[i]/i;
end;
b2:=b2*b2*b2;
s:=s*b1/(b1*b1+b2);

как мне нравятся скрины, сделанные телефоном почти также как ролики, снятые мобильным с экрана компа

[METFIss]

спасибо большое, осталось к ним блоксхемы придумать, если поможете было бы классно, нет и на том спасибо