помогите решить 2 задачки в delphi

[kino]

1.Дан массив А из К целых чисел. Найти и вывести на экран все четные отрицательные элементы массива, стоящие на четных местах.
2.Дана матрица B: array [1..5,1..5] of real. Найти для нее транспонированную матрицу относительно побочной диагонали.

[Sergey K]

вас спасет перебор значении массива циклом