Developing.ru

Помогите, пожалуйста, решить.

1. Написать программу проверки трех чисел на честность/нечетность. Вывести, сколько из них четно, сколько нечетно.

2. Дана матрица размеров 8Ч7, заполненная случайным образом. Поменять местами первый и последний столбцы.

1. Для проверки на НЕчетность в Паскале есть ф-ия Odd :

function Odd (X: Longint): Boolean;