Сумма четных элементов матрицы. Произведение элементов 3-го столбца. Минимальный элемент матрицы.

[renovare]

Дана матрица: /-12 /1 /2 /-21
/11/-14/13/8
/9/7/1/3
/5/0/-10/2 НАЙТИ:
1.Сумма четных элементов матрицы.
2.Произведение элементов 3-го столбца.
3.Минимальный элемент матрицы.

[NSvirus]

number 3

min:=massiv[1]
for i:=1 to 4 do
 for i:=1 to 4 do
 if massiv[i,j]<min then min:=massiv[i,j];

number 1

 sum:=massiv[2,2]+massiv[4,4];

//может быть значений элементов?
number 2

proizv:=1;
for i:=1 to 4 do
 proizv:=proizv*massiv[i,3];

[NSvirus]

Сообщение от NSvirus

number 3

min:=massiv[1,1] //переменная min получает значение первого элемента
for i:=1 to 4 do //цикл по строкам
 for i:=1 to 4 do //цикл по столбцам
 if massiv[i,j]<min then min:=massiv[i,j];//если текущий элемент меньше предыдущего значения минимума, значит назначаем новый минимум

number 1

 sum:=massiv[2,2]+massiv[4,4];//в сумму записываются значения элементов с адресами в массиве [2,2] и [4,4]

number 2

proizv:=1; //переменной произведения назначается 1-ца, чтобы не происходило умножение на ноль.
for i:=1 to 4 do //цикл по строкам массива
 proizv:=proizv*massiv[i,3];//к предыдущему значению массива домнажается очередной элемент столбца 3

код с комментами