Паскль! Нужно срочно. Если есть такие кому не лень и не в падлу сделайте пожалуйста

Паскль! Нужно срочно. Если есть такие кому не лень и не в падлу сделайте пожалуйста.
Задан массив с1, с2...сn.
Нужно изменить все столбцы матрицы в которой равен нулю элемент главной диагонали: i-й элемент такого столбца (J=1,2....n) увеличивается на Ci. Найдите также сумму элементов главной диагонали.

  • If (Мне<>лень)
    if (Мне<>в_падлу)
    написать
    else
    послать_обругать_не_делать
  • лень
  • Русский язык великий и могучий -) Ваша программа, смотрите ссылку. Массив использовал статический поскольку в старом Pascale динамических массивов нет, а Dephi у меня не установлено, при желании сможете сделать в Delphi консольное приложение с динамическим массивом, уберете из кода строки:
    const
    n = 5;
    A : array[1..n*n] of Integer;
    вместо этих строк добавите в переменные:
    n : Integer;
    A : array of Integer;
    а в код добавите строки:
    writeln(Введите n: '');
    read(n);
    setlength(A,n*n);
    Источник: http://pastebin.com/AVecdkPQ