Помогите решить 2 задачи в Delphi

[Nick500]

Помогите решить 2 задачи в делфи:
1.Составить алгоритм вычисления в цикле суммарного результата:
Найти суммарный объем n цилиндров высоты h, если радиусы их оснований образуют последовательность 3, 6, 9, …,3n. Найти среднюю длину радиуса.
2.Дана последовательность чисел а1, а2, …, аn. Найти положительную подпоследовательность наибольшей длины.
ЗЫ: Я в делфи новичок,может кто посоветует какую-нибудь литературу для начинающих.

[Cannibal]

первая залача во вложении

Из книг могу посоветовать: М.Фленов "Библия Delphi"

[Nick500]

Cannibal,Огромное спасибо!!!
Может кто еще поможет 2-ую решить.

[OLEG'arh]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n,i,max1,max2:integer;
  a:array[1..100] of integer;
begin
  writeln('vvedite n');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(60)-30;
      write(a[i],' ');
    end;
  writeln;
  writeln;
  for i:=1 to n do
    if (a[i]>=0) then inc(max1)
                   else if max1>max2 then
                                               begin
                                                 max2:=max1;
                                                 max1:=0;
                                               end;
  writeln(max2);
  readln;
end.

[puporev]

Из книг могу посоветовать: М.Фленов "Библия Delphi"

Если человек не умеет составить алгоритм, то ни Библия ни Коран ему не помогут, ибо алгоритмы в них практически не рассматриваются. А начинать надо со старых книг по Паскалю.

[Nick500]

OLEG'arh,Оромное спасибо!!!