Задачи в Delphi (матрица, массив, сумма ряда). Помогите, пожалуйста!

[8Lesya8]

1) Дана целочисленная квадратная матрица порядка n. Найти
номера столбцов: а) все элементы которых отрицательны; б) все
элементы которых равны нулю.
2) Дан массив действительных чисел. Найти наибольший
элемент массива (требуется вводить кол-во элементов массива и сам массив).
3) Составить программу для вычисления суммы ряда: (1/1*1*1)+(1/2*2*2)+(1/3*3*3)+(1/n*n*n), где n — натуральное число.
Сумму ряда вычислять до тех пор, пока текущий член последова-
тельности не станет меньше заданного числа ε (0<ε<0,0001).

[Anatole]

3.

Programm a;
Var n:word; sum,r: extended;
Const epsilon=0.0001;
begin
s:=0.0;
n:=1;
repeat
r:=1/n/n/n;
s:=s+r;
inc(n);
until r<epsilon;
writeln('sum=',sum,' r=',r);
end.

на вскидку, по быстрому, где-то так
и выберите в делфи косольное приложение

2. смотрите на форуме. Встечается часто.
1. Ау вас каие идеи?

[Chudo4258]

1 задача:
http://programmersforum.ru/showthread.php?t=49619

[Chudo4258]

2 задача:

max:=A[1];
for i:=2 to n do
 if A[i]>max then max:=A[i];