У Delphi 1. Для кожного стовпця матриці визначити і надрукувати кількість елементів,
значення яких перевищує число Z.
2. Знайти і надрукувати суму значень від’ємних елементів матриці.

ример 1. Задан массив A, содержащий 100 целых чисел. Найти сумму элементов этого массива. Фрагмент кода, решающего эту задачу

// сумма элементов массива A из 100 целых чисел

int A[100];

int suma; // переменная, содержащая сумму

int i; // дополнительная переменная

// ввод массива A

// ...

// Вычисление суммы

suma = 0; // обнулить сумму

for (i=0; i<100; i++)

suma += A[i];