Массив ( построить вектор)

[Юля 19]

Помогите пожалуйсто с этим брдиком((

Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i-й строки матрицы

[BDA]

Uses CRT;
const
n=10;
var
A:array[1..n,1..n] of integer;
B:array[1..n] of integer;
i,j:integer;
BEGIN
for i:=1 to n do
	for j:=1 to n do
		a[i,j]:=random(100)-50;
for i:=1 to n do
	b[i]:=-32768;

writeln('Matrix');	
for i:=1 to n do
begin
	for j:=1 to n do
		write(a[i,j]:4);
	writeln;
end;

for i:=1 to n do
	for j:=1 to n do
		if a[i,j]>b[i] then
			b[i]:=a[i,j];

writeln('Vector');			
for i:=1 to n do
	write(b[i]:3);

readln;
END.

[Юля 19]

эта программа считает?? а то я проверила и там сразу значения без подсчётов были заданы ,что это такое?

[BDA]

Ой, я забыл написать randomize, поэтому она будет всегда одинаково считать.

Uses CRT;
const
n=10;
var
A:array[1..n,1..n] of integer;
B:array[1..n] of integer;
i,j:integer;
BEGIN
randomize;
for i:=1 to n do
	for j:=1 to n do
		a[i,j]:=random(100)-50;
for i:=1 to n do
	b[i]:=-32768;

writeln('Matrix');	
for i:=1 to n do
begin
	for j:=1 to n do
		write(a[i,j]:4);
	writeln;
end;

for i:=1 to n do
	for j:=1 to n do
		if a[i,j]>b[i] then
			b[i]:=a[i,j];

writeln('Vector');			
for i:=1 to n do
	write(b[i]:3);

readln;
END.

Или вместо:

randomize;
for i:=1 to n do
	for j:=1 to n do
		a[i,j]:=random(100)-50;

можно вводить самому:

for i:=1 to n do
	for j:=1 to n do
	begin
		write('a[',i,',',j,']= ');
		readln(a[i,j]);
	end;

[Юля 19]

Спасибо, сейчас гляну

[Юля 19]

вписала вместо рандомайз что ты написал вроде что-то изменилось ,но там массива куча надо вводить , если меньше поставить константу может кто нить придраться что недля всех случаев это?

[BDA]

Да, так и надо.
Еще можно размер так же запрашивать:

Uses CRT;
const
m=100;
var
A:array[1..m,1..m] of integer;
B:array[1..m] of integer;
i,j,n:integer;
BEGIN
writeln('Input size of matrix');
readln(n);
for i:=1 to n do
	for j:=1 to n do
	begin
		write('a[',i,',',j,']= ');
		readln(a[i,j]);
	end;
for i:=1 to n do
	b[i]:=-32768;

writeln('Matrix');	
for i:=1 to n do
begin
	for j:=1 to n do
		write(a[i,j]:4);
	writeln;
end;

for i:=1 to n do
	for j:=1 to n do
		if a[i,j]>b[i] then
			b[i]:=a[i,j];

writeln('Vector');			
for i:=1 to n do
	write(b[i]:3);

readln;
END.