Построить последовательность b1,..,bn из нулей и единиц

@sanbir · Регистрация: 15.09.2009

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, программку написать:
Даны натуральное число n>=2, действительная квадратная матрица порядка n. Построить последовательность b1,..,bn из нулей и единиц, в которой bi=1 тогда и только тогда, когда элементы i-й строки матрицы образуют возрастающую последовательность.

@Jazon_deenAlt · 19.02.2010, 14:03

Pascal

uses crt;
var
i,j,n:integer;
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
b[i]:=1;
for j:=1 to n do begin
a[i,j]:=random(100);
write(a[i,j]:3);
  if (j>1) and (a[i,j]<=a[i,j-1]) then b[i]:=0;//или "<" если ниспадающая последовательность 
end;
writeln;
end;
writeln;
for i:=1 to n do begin
write(b[i]:3);
end;
readln;
end.

@sanbir 5 / 5 / 4 Регистрация: 15.09.2009 Сообщений: 32
		1
	Построить последовательность b1,..,bn из нулей и единиц 19.02.2010, 13:41. Показов 2442. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, программку написать: Даны натуральное число n>=2, действительная квадратная матрица порядка n. Построить последовательность b1,..,bn из нулей и единиц, в которой bi=1 тогда и только тогда, когда элементы i-й строки матрицы образуют возрастающую последовательность. 0

	19.02.2010, 14:03

Опции темы

Построить последовательность b1,..,bn из нулей и единиц

Решение