Информатика бар маа ?

//Язык Pascal

Program multiplication;

Var

  code, rightAnswers, mistakes, answersCount, value1, value2, answer: integer;

Begin

  Randomize;

  code := 1;

  rightAnswers := 0;

  mistakes := 0;

  answersCount := 0;

  while code = 1 do

  begin

     Write('Проверим? ');

     Readln(code);

     Writeln();

     if (code = 1) then

     begin

        value1 := random(1, 9);

        value2 := random(1, 9);

        Write(value1, '*', value2, ' = ');

        Readln(answer);

        if (answer = value1 * value2) then

        begin

           Writeln('Правильно!');

           rightAnswers := rightAnswers + 1;

        end

        else

        begin

           Writeln('Неправильно!');

           mistakes := mistakes + 1;

        end;

        answersCount := answersCount + 1;

        Writeln();

     end;

  end;

  Writeln('Статистика:');

  Writeln('Задано вопросов: ', answersCount);

  Writeln('Количество правильных ответов: ', rightAnswers);

  Writeln('Число ошибок: ', mistakes);

End.

#include <iostream>

#include <array>

#include <vector>

#include <algorithm>

#include <iterator>

int main()

{

const int N = 5;

std::array<int, N> matrix[N]{

 {-1,  -2, -3, -4, -5},

 {-6,  -7, -8, -9, -10},

 {-11, -12, -13, -14, -15},

 {-16, -17, -18, -19, -20},

 {-21, -22, -23, -24, -25}

};

std::vector<int> vec;

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

{

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

 {

  if(j < i)

  {

   if(matrix[i][j] < 0)

    vec.push_back(matrix[i][j]);

  }

 }

}

std::copy(vec.begin(), vec.end(), std::ostream_iterator<int>(std::cout, " "));

std::cout << std::endl;

}