ПОДПРОГРАММЫ Опции

[denis9628]

Помогите пожалуйста дописать самую сложную часть программы))
Вариант 16
1.Вычисление суммы четных элементов матрицы.
2.Вычитание из значения каждого элемента матрицы номера строки данного элемента
Примечание: Для пункта 1 исходную матрицу задать самостоятельно в виде типизированной константы.
Для пункта 2 исходную матрицу сформировать, используя датчик псевдослучайных чисел
RANDOM.

Program ppi_V16;
uses crt;
type
arr=array [1..5, 1..5] of integer;
const
a:arr=((3,4,5,6,7),
(-1,-2,-3,-4,-5),
(0,0,0,0,0),
(1,-1,-1,2,-2),
(-3,-5,7,2,0));
var
b:arr;
i,j,k:integer;