Дана действительная матрица a размером m*n, где m, n-заданные натуральные числа. сформировать одномерный массив b, в котором элемент b[j] равен 1, если все элементы j-ого столбца матрицы составляют строго возрастающую последовательность и нуль в противном случае. (j=1, ) . требуется прописать все переменные в заголовке таблицы (var если возможно, то лучше решить без x типа boolean. программа в паскале

Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

Const k=10;
type arr=array[1..k] of integer;
procedure p1(var x:arr);
var i:integer;
begin
for i:=1 to k do
 begin
 x[i]:=random(30)-15;
 write(x[i]:3);
 end;
writeln;
end;
function f1(var x:arr):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do
 if x[i]<0 then s:=s+x[i]*x[i];
f1:=s;
end;
var a,b:arr; m,n:integer; x:real;
begin
writeln('a:');
p1(a);
writeln('b:');
p1(b);
m:=f1(a);
n:=f1(b);
writeln('m = ',m,' n = ',n);
x:=m/(n-m);
writeln('x = ',x:6:4);
end.

Пример:
 a:
-13 7-11 11 -3 4 13 3 -1 2
b:
  8 -2 5 10 9 8 -8 12 7-13
m = 300 n = 237
x = -4.7619