Информатика. Паскаль 11 кл,100 б

#include <iostream>

#include <iomanip>

#include <stdlib.h>

#include <time.h>

using namespace std;

int main()

{

   const int size = 4;

   int mat[size][size];

   srand(time(NULL));

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

   {

       for (int j = 0; j < size; j++)

       {

           mat[i][j] = 0 + rand() % 11;

       }

   }

   cout << "   Matrix:" << '\n';

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

   {

       for (int j = 0; j < size; j++)

       {

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

       }

       cout << '\n' << '\n';

   }

   int sum = 0;

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

   {

       for (int j = size; j < size; j++)

       {

           sum += mat[i][j];

       }

   }

   cout << "Sum:" << sum << '\n';

   return 0;

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.