2 задачи с массивами

[Vanchel56]

Одномерный массив

Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an получить сумму положительных и число отрицательных членов.

Двумерный массив

Даны натуральное число n, действительная матрица . Получить последовательность элементов главной диагонали а11, а22,…, аnn.

Прошу написать эти программы на языке Packal. Буду очень признателен и благодарен за помощь.

[Hacker19_90]

1)

count := 0;
sum := 0;
for i := 1 to n do
begin
     if a[i] > 0 then sum := sum + a[i];
     if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);

2)

var
    a: array[1..n, 1..n] of real;
    b: array[1..n] of real;
{.......................................................}
begin
{........................................................}
for i := 1 to n do
    b[i] := a[i,i];
{.......................................................}
end.

[Vanchel56]

Спасибо большое, но всё таки не получаеться, программа не выдаёт значения, может я что то не то пишу, помогите пожалуйста, очень срочно нужно. Вот фотографии с программами:

Безымянный.jpg

Безымянный1.jpg

[Hacker19_90]

(нервно курит)

[Stilet]

Ну так а кто массив то вводить будет?
Тебе же еще массив ввести надо
Например ручками

for i:=1 to n do readln(a[i]);

[cyber_NINJA]

Если не задавать значение переменной, то она равна 0 (по умолчанию)
В кодах матрица и вектор НУЛЕВЫЕ,
естественно результатом будет 0 : rolleyes:

! Добавь код для ввода матрицы/вектора !