Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m)

@Оленька94 · Регистрация: 11.05.2013

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

Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m).

поожааалллууййста помогите)

@Slim86r · 23.05.2013, 12:21

Pascal

program maxelst;
var a,b:array[1..100,1..100] of integer;
i,j,n,m,max:integer;
begin
Writeln('Vvedite N and M');readln(n,m);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
for i:=1 to m do
for j:=1 to m do
b[i,j]:=random(50);
writeln('Isxodnya matrica 1');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for j:=1 to n do
 begin
 max:=0;
 for i:=1 to n do
 if a[i,j]>max then max:=a[i,j];
 writeln('Max v stolbce ',j,'=',max);
 end;
writeln('Isxodnya matrica 2');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for j:=1 to n do
 begin
 max:=0;
 for i:=1 to m do
 if a[i,j]>max then max:=a[i,j];
 writeln('Max v stolbce ',j,'=',max);
 end;
end.

@Оленька94 0 / 0 / 0 Регистрация: 11.05.2013 Сообщений: 17
		1
	Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m) 22.05.2013, 20:51. Показов 2105. Ответов 1 Метки нет (Все метки) Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m). поожааалллууййста помогите) 0

	23.05.2013, 12:21

Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m)

Решение