Объяснение:
type
matrix = array of array of integer;
arr = array of integer;
procedure matr2(c: char; var x: matrix; var m, n: integer);
var
i, j: integer;
begin
writeln('Введите количество строк в матрице ' + c + ': ');
readln(m);
writeln('Введите количество столбцов в матрице ' + c + ': ');
readln(n);
SetLength(x, m);
writeln('Матрица ', c, ':');
for i := 0 to m-1 do
begin
SetLength(x[i], n);
for j := 0 to n-1 do
begin
x[i, j] := -99 + random(199);
write(x[i, j]:4);
end;
writeln;
end;
writeln;
end;
procedure el(const x: matrix; const m, n: integer; var y: arr);
var
i, j: integer;
begin
SetLength(y, n);
for j := 0 to n-1 do y[j] := 0;
for i := 0 to m -1 do
for j := 0 to n - 1 do
if x[i, j] < 0 then inc(y[j]);
end;
procedure poell(var y: arr; const n: integer);
var
j: integer;
begin
writeln('Количество отрицательных элементов по столбцам:');
for j := 0 to n - 1 do write(y[j]:4);
writeln;
end;
var
a, b: matrix;
c, d: arr;
m, n: integer;
begin
randomize;
matr2('A', a, m, n);
el(a, m, n, c);
poell(c, n);
matr2('B', b, m, n);
el(b, m, n, d);
poell(d, n);
readln();
end.
#include <cstdlib>
#include <iostream>
#include <ctime>
#include <clocale>
#include <cmath>
using namespace std;
void area_determ(double coordx, double coordy) {
if (coordy < 0 || (coordy > 0 && coordx < 0.75)) {
cout << "Точка лежит вне области\n" << endl;
}
if (coordx > 0.75 && coordy > 0 && (sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1)) {
cout << "Точка лежит внутри области\n" << endl;
}
else if ((coordx == 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1) ||
(coordy == 0 && coordx > 1) ||
(coordx > 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) == 1)) {
cout << "Точка лежит на границе области\n" << endl;
}
}
int main() {
system("chcp 1251");
setlocale(LC_ALL, "Rus");
srand(time(NULL));
double x, y;
cout << "Введите координату x точки" << endl;
cin >> x;
cout << "Введите координату y точки" << endl;
cin >> y;
area_determ(x, y);
system("pause");
return 0;
}
