вычислить значение выражения (на паскаль): 1)not odd(n) при n=0 2)t and (p mod 3=0) при t=true, p=101010 3)(x*y< > 0) and (y> x) при x=2, y=1 4)(x*y< > 0) or (y> x) при x=2, y=1 5)a or (not b) при a=false, b=true

a = [[i] for i in range(10)]

for i in enumerate(a):

 for j in range(1,10):

   if i[0] == 0:

     a[i[0]].append(j)

   else:

     a[i[0]].append(j*i[1][0])

for i in a:

   for j in i:

     print('{:3d}'.format(j), end='')

   print()

print('------------------------------------')

while True:

 x = int(input('Введите x: '))

 y = int(input('Введите y: '))

 print('Результат на основе таблицы умножения равен: ', str(a[x][y]))

 z = input('Повторить? (y/n): ')

 if z != 'y':

   print('До встречи!')

   break

#include <iostream>

using namespace std;

int main()

{

int a[12];

for (int i = 0; i < 12; i++)

{

 a[i] = rand() % 10;

}        //заполняем массив случайными числами до 10

for (int i = 0; i < 12; i++)

{

 cout << a[i]<<" ";

}       // вывод элементов массива

int max=a[0],max_i;   //переменные для максимального элемента

cout << endl;

for (int i = 1; i < 12; i++)

{

 if (a[i] > max)

 {

  max_i = i;

  max = a[i];

 }

}

 a[max_i] = -max;

 for (int i = 0; i < 12; i++)

 {

  cout << a[i]<<" ";

 }       // вывод элементов массива

 

}

   

2 задание  

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "russian");

int a[12];

for (int i = 0; i < 12; i++)

{

 a[i] = rand() % 20-10;

}        //заполняем массив случайными числами от -10 до 10

for (int i = 0; i < 12; i++)

{

 cout << a[i]<<" ";

}       // вывод элементов массива

int m=0,n=0;   //переменные для подсчета  

 

for (int i = 0; i < 12; i++)

{

 if (a[i] > 0)

 {

  m++;

 }

 if (a[i] < 0)

 {

  n++;

 }

}

cout << endl << "положительных  " << m << "  отрицательных  " << n;

}

Объяснение: