Создать программу на языке Паскаль для решения задачи обработки двумерных массивов – матриц: Дана матрица А(n, m Сформировать массив В(n), каждый элемент которого есть произведение положительных элементов соответствующей строки матрицы А.

// PascalABC.NET

begin

 var (n, m) := ReadInteger2('Введите n и m:');

 var a := MatrRandom(n, m, -99, 99);

 a.Println;

 var b := a.Rows

     .Select(r -> r.Where(p -> p > 0).Product(p -> int64(p)))

     .ToArray;

 b.Print

end.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=a+b+c;
  var k:=Trunc(sqrt(s));
  if k*k=s then Writeln('Сумма чисел - квадрат ',k)
  else Writeln('Сумма чисел не является квадратом целого')
end.

Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=power(a*b*c,1/3);
  if s=int(s) then Writeln('Среднее геометрическое - целое число')
  else Writeln('Среднее геометрическое - нецелое число')
end.

Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
    int a[12];

    for(int i = 0; i < 12; i++)
    {
        a[i] = rand() % 21;

        cout << a[i] << ' ';
    }
    cout << endl;

    int temp;
    for(int i = 0, j = 11; i < j; i++, j--)
    {
        temp = a[i];
        a[i] = a[j];
        a[j] = temp;
    }

    for(int i = 0; i < 12; i++)
    {
        cout << a[i] << ' ';
    }
    cout << endl;

   return 0;
}