Дана действительная матрица A размером M*N, где M,N-заданные натуральные числа. Сформировать одномерный массив B, в котором элемент B[j] равен 1, если все элементы j-ого столбца матрицы составляют строго возрастающую последовательность и нуль в противном случае. (j=1,2,....,N)
More Questions From This User See All
Answers & Comments
program raf105;
const
N = 4;
M = 3;
var
a: array[1..N,1..M] of real;
b: array[1..N] of byte;
x: boolean;
begin
for var i:=1 to N do
begin
writeln('Заполните столбец ',i,' числами по очереди');
for var j:=1 to M do
readln(a[i,j]);
end;
for var i:=1 to N do
begin
x:= True;
for var j:=1 to M-1 do
if not(a[i,j] < a[i,j+1]) and x then x:= False;
if x then b[i]:= 1
else b[i]:= 0;
end;
writeln;
writeln('Массив B: ',b);
end.
PascalABC