Алгоритмы со структурой вложенных циклов. в качестве основы для выполнения используем двумерный массив а, содержащий m строк и n столбцов. составить на языке программирования pascal программу решения : вычислить произведение отрицательных элементов, стоящих на четных местах нечетных столбцов двумерного массива
#include <iostream>
#include <time.h>
#include<cstdlib>
#include <iomanip>
using namespace std;
int main() {
setlocale(LC_ALL, "rus");
srand(time(NULL));
int m, n; //ЧИСЛЛО СТРОК , СТОЛБЦОВ
int S=1; // БУДУЩЕЕ ПРОИЗВЕДЕИЕ
cin >> m >> n; // ВВОДИМ ИХ
int A[m][n]; //ОБЪЯВЛЯЕМ МААССИВ
for (int i = 0; i < m; i++) { // ЦИКЛ ЗАПОЛНЕНИЯ МАССИВА СЛУЧАЙНЫМИ ЧИСЛАМИ
for (int j = 0; j < n; j++) {
A[i][j] = rand()%200 - 100;
}
}
for (int i = 0; i < m; i++) {
for (int j = 0; j < n; j++) {// ЦИКЛ ВЫПОЛНЕНИЯ УСЛОВИЯ
if (A[i][j]<0&&j%2==1){
if (i%2==0){
S=S*A[i][j];
}
}
}
}
for (int i = 0; i < m; i++) {// ВЫВОД МАССИВА
for (int j = 0; j < n; j++) {
cout << setw(3)<<A[i][j]<< " ";
}
cout << endl ;
}
cout << endl << S;// ВЫВОД ПРОИЗВЕДЕНИЯ
return 0 ;
}