1. в двумерном массиве 4х7 определить количество чётных отрицательных элементов. 2. определить произведение элементов над главной диагональю квадратной матрицы 3х3.

1)
var
   a : array [1..4, 1..7] of integer;
   i, j, count : integer;
 begin
   count := 0;
   for i:=1 to 4 do
     for j:=1 to 7 do
       if ((a[i,j]<0) and (a[i,j] mod 2 =0))
       then count:= count+1;
   writeln (count);
 end.

2)
var
    a : array [1..3, 1..3];
    c : integer;
 begin
   c := a[1, 1] * a[2, 2] * a[3, 3];
   writeln(c);
 end.

#include <iostream>

using namespace std;

unsigned long int Rev(unsigned long int x);

int main()  

{

unsigned long int a, b;

cout << "Input a natural number A: ";

cin >> a;

cout << "Input a natural number B: ";

cin >> b;

cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));

}

unsigned long int Rev(unsigned long int x) {

unsigned long int numb = 0;

while (x != 0) {

 numb = (numb + x % 10) * 10;

 x /= 10;

}

return numb / 10;

}

/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */

#include <iostream>  //подключаем библиотеки

#include <fstream>  //подключаем библиотеки

using namespace std; //пространство имён

int main() {

 

setlocale(LC_ALL, "Russian"); //русский

 

int arr[10] = {5,4,6,17,2,3,16,9,8,1};

 

for(int i = 0; i < 10; i++) //сортируем масссив

{

 if (arr[i] % 2 == 0)  //все четные

 {

  arr[i] = 1;    //меняем значение

  cout << arr[i] << " ";  //выводим

 }else    //все нечетные

 {

  arr[i] = 10;    //меняем значение

  cout << arr[i] << " ";  //выводим

 }

}

 

return 0; //возращаем ничего

}