Https://www.teacherspayteachers.com/Product/Watch-Online-Trolls-World-Tour-2020-Full-Movie-Free-Download-5532765 https://www.teacherspayteachers.com/Product/Watch-Online-Blue-Story-2020-Full-Movie-Free-Download-5532773 https://www.teacherspayteachers.com/Product/WatchMy-Hero-Academia-Heroes-Rising-2020-Full-Movie-Free-Download-5532779 https://www.teacherspayteachers.com/Product/Watch-Online-365-Dni-365-Days-2020-Full-Movie-Free-Download-5532790 https://www.teacherspayteachers.com/Product/Watch-Avengers-Endgame-Online-Full-Movie-Free-Download-5532797

#include <iostream>

#include <iomanip>

#include <ctime>

#define M 5

#define N 5

using namespace std;

int main()

{

   int A[M][N];

   int C[M - 1][N - 1];

   int i, j, min, min_index, zero_cnt = 0;

   setlocale(LC_ALL, "Russian");

   srand(time(0));

   cout << "Исходная матрица: " << endl;

   for (i = 0; i < M; i++)

   {

       for (j = 0; j < N; j++)

       {

           A[i][j] = rand() % 101 - 50;

           cout << setw(4) << A[i][j];

           if ((i == 0) && (j == 0)) min = A[i][j];

           if (A[i][j] < min)

           {

               min_index = i * M + j;

               min = A[i][j];

           }

       }

       cout << endl;

   }

   for (i = 0, j = 0; i < M * N; i++)

       if ((i / M != min_index / M) && (i % M != min_index % M))

       {

           C[0][j] = A[0][i];

           if (C[0][j++] == 0) zero_cnt++;

       }

   cout << "Результат: " << endl;

   for (i = 0; i < M - 1; i++)

   {

       for (j = 0; j < N - 1; j++)

       {

           if (i == 0)

           {

               min = C[i][j];

               C[i][j] = C[M - 2][j];

               C[M - 2][j] = min;

           }

           cout << setw(4) << C[i][j];

       }

       cout << endl;

   }

   cout << "Количество нулей в сформированной матрице: " << zero_cnt;

   return 0;

}

const N=5;

var a:array [1..N,1..N] of integer;

i,j,min:integer;

begin

 randomize;

 for i:=1 to N do  

   begin

     for j:=1 to N do

       begin

         a[i,j]:=random(21)-10;

         write(a[i,j]:4);

       end;

     writeln;

   end;

   writeln;

 min:=a[1,1];

 for i:=1 to N do

   for j:=1 to N do

     if a[i,j]<min then

       min:=a[i,j];

 if min<>a[1,1] then a[1,1]:=min;

 for i:=1 to N do

   begin

     for j:=1 to N do

       write(a[i,j]:4);

     writeln;

   end;

end.