30.05.2008, 17:51
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение в приложении.
Приложение:
uses crt;
var a:array[1..20,1..20]of integer;
n,m,i,j,max,min:integer;
begin
clrscr;
write(‘Kolichestvo strok= ‘);readln(m);
write(‘Kolichestvo stolbcov= ‘);readln(n);
randomize;
Writeln(‘Matrica:‘); {создание и вывод исходной матрицы}
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
readln;
for i:=1 to m do {поиск макс и мин в строках}
begin
max:=a[i,1];min:=a[i,1];
for j:=1 to n do
begin
if a[i,j]>max then
begin
max:=a[i,j];
end
else if a[i,j]<min then
begin
min:=a[i,j];
end;
end;
writeln(‘V stroke ‘,i,‘ max=‘,max,‘ mim=‘,min);
end;
writeln;
for j:=1 to n do {поис макс и мин в столбцах}
begin
max:=a[1,j];min:=a[1,j];
for i:=1 to m do
begin
if a[i,j]>max then
begin
max:=a[i,j];
end
else if a[i,j]<min then
begin
min:=a[i,j];
end;
end;
writeln(‘V stolbce ‘,j,‘ max=‘,max,‘ mim=‘,min);
end;
readln
end.