Одномерные массивы, Матрицы. Pascal ABC

[VladimirAvakov]

Одномерные массивы.
Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

Матрицы
Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Вычислить сумму элементов главной диагонали матрицы.

Ребят напишите пожалуйста 2 программки на Pascal ABC. Позарез нужно.
Заранее большое большое спасибо.

[Serge_Bliznykov]

Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

sum := 0;
for i:=1 to n do
  if a[i]>0 then sum := sum + a[i];
sum := sum * 2;

Вычислить сумму элементов главной диагонали матрицы.

sum := 0;
for i:=1 to n do
  sum := sum + a[i,i];