Пацаны, такое дело, если у кого есть полчаса свободных, помогите?
Завтра зачет, нужно пару лаб сделать, сам сижу сейчас и не могу вспомнить ничего, хотя сами лабы легкие.
Был бы очень признателен, по возможности в долгу не останусь.

Показать скрытый текст

Delphi:
Лаба 6: Дан массив A целых чисел, содержащий 30 элементов. Вычислить и вывести количество и сумму тех элементов, которые делятся на 5 и не делятся на 7.

Лаба 7: Вычислить суммы элементов матрицы Y(12,12) по столбцам и вывести их.