Найти произведение элементов главной диагонали массива - Pascal
Формулировка задачи:
Найти произведение элементов главной диагонали массива размером NxN, элементы которого вводятся с клавиатуры.
Решение задачи: «Найти произведение элементов главной диагонали массива»
textual
Листинг программы
p:=1; for i:=1 to n do p:=p*a[i,i];
Объяснение кода листинга программы
- Создается переменная
pи ей присваивается значение 1. - Запускается цикл
forот 1 доn. - В цикле переменная
pумножается на значение элемента массиваaс индексами [i, i].