ОЧЕНЬ КЛАС ИНФОРМАТИКА

#include <algorithm>

#include <iostream>

#include <iomanip>

#include <random>

using namespace std;

int main() {

uniform_int_distribution<> uid(1, 5);

mt19937 gen{ random_device()() };

auto rand = [&] { return uid(gen); };

auto show = [](int x) { cout << setw(3) << x; };

int matrix[5][10];

for (auto& row : matrix) generate(begin(row), end(row), rand);

for (auto& row : matrix) {

for_each(begin(row), end(row), show);

puts("");

}

int n = 0;

for (auto i = 0U; i < size(matrix[0]); ++i) {

int x = matrix[0][i];

for (auto j = 1U; j < size(matrix); ++j) {

if (matrix[j][i] <= x) x = matrix[j][i];

else {

--n;

break;

}

}

++n;

}

cout << "Quantity: " << n << endl;

system("pause > nul");

}

Объяснение:

Free Pascal

uses math;

var

 x, y : double;

 i :  integer;

begin

 i:=-18;

 while i <= 21 do begin

   x:=i/10;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:1:1,']=',y:4:4);

   end

   else

     Writeln('f[',x:1:1,']= решения нет, деление на 0');

   inc(i);

 end;

 writeln();

 i:=-100;

 while i<=100 do begin

   x:=i/100;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:2:2,']=',y:4:4);

   end

   else

     Writeln('f[',x:2:2,']= решения нет, деление на 0');

   inc(i,5)

 end;

end.