Question

Решить задачи:
1) Заполнить двумерный массив из 4 строк и 5 столбцов вручную. Вывести эти элементы и вывести квадраты этих чисел (Примечание: если с элементами массива нужно выполнить какие-то действия, то нужен третий цикл).
2) Заполнить двумерный массив из 4 строк и 5 столбцов случайным образом в промежутке от 0 до 10. Вывести эти элементы и вывести удвоенные значения этих элементов.

Answer 1

#include <iostream>

#include <cmath>

#include <set>

#include <vector>

#include <algorithm>

#pragma GCC optimize("Ofast")

using ll = long long;

using ld = long double;

using namespace std;

const ll n = 4, m = 5;

ll a[n][m];

void print(){

   for(ll i = 0; i < n; i++){

       for(ll j = 0; j < m; j++)

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

       cout << "\n";

   }

   cout << "\n";

}

signed main() {

   /** матрица + матрица квадратов */

   for(ll i = 0; i < n; i++)

       for(ll j = 0; j < m; j++)

           cin >> a[i][j];

   print();

   for(ll i = 0; i < n; i++)

       for(ll j = 0; j < m; j++)

           a[i][j] *= a[i][j];

   print();

   /** матрица + матрица квадратов */

   srand(time(NULL));

   /** рандомная матрица + матрица удвоения */

   for(ll i = 0; i < n; i++){

       for(ll j = 0; j < m; j++){

           a[i][j] = rand() % 10;

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

           a[i][j] *= 2;

       }

       cout << "\n";

   }

   cout << "\n";

   print();

   /** рандомная матрица + матрица удвоения */

}

Answer 2

begin

 Println('PascalABC.NET', PascalABCVersion);

 // 1

 var a := ReadMatrInteger(4, 5);

 a.Println(6);

 Writeln;

 a.Transform(p -> p * p);

 a.Println(6);

 // 2

 var b := MatrRandom(4, 5, 0, 10);

 b.Println;

 Writeln;

 b.Transform(p -> 2 * p);

 b.Println

end.