Требуется помощь)

[immortalis]

Необходимо на Паскале решить следующие задачи:
1) Задать динамически двумерный массив. Заполните его случайным образом и найдите сумму квадратов элементов главной диагонали.

2) В массиве А(m) каждый элемент, кроме первого, заменить максимальным из всех предыдущих его элементов.

3) Матрица К(m, m) состоит из нулей и единиц. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца, не содержащих единицы, либо сообщить, что таковых нет.

4) В массиве С(m) каждый третий элемент заменить полусуммой двух предыдущих, а стоящий перед ним – полусуммой соседних с ним элементов. Дополнительных массивов не использовать.

ЗЫ:Задачи наверно элементарные) Но я пока не понимаю как это делать... помогите пожалуйста...

[PADOCTb]

4) for i:= 1 to m/3 do
begin
temp:=(C[3*i]+C[3*i-2])/2;
C[3*i]:=(C[3*i-1]+C[3*i-2])/2;
C[3*i-1]:=temp;
end;

[immortalis]

Ээээм((( а можно весь код целиком....((((( я в этом пока еще ничего не понимаю...а лабораторку сдавать надо((

[x_heart_X_core_x]

immortalis, двумерный массив у меня был где-то, если найду - то кину...