Алг
нач
целтаб А[1:2, 1:3]
цел а, б
вывод "Исходная матрица:", нс
нц для а от 1 до 2
нц для б от 1 до 3
А[а,б] := irand(-9,9)
вывод А[а,б], " "
кц
вывод нс
кц
вещ Б
если А[1,1] >= 0
то
Б := 0
нц для а от 1 до 2
нц для б от 1 до 3
Б := Б + А[а,б]
кц
кц
вывод "Сумма = ", Б
иначе
Б := 1
нц для а от 1 до 2
нц для б от 1 до 3
Б := Б * А[а,б]
кц
кц
вывод "Произведение = ", Б
всё
кон
Примеры работы программы:
Исходная матрица:
-2 -2 5
-8 -6 5
Произведение = 4800.0
Исходная матрица:
0 2 0
8 9 4
Сумма = 23.0
Исходная матрица:
0 9 1
3 -9 9
Сумма = 13.0