Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2012, 09:28   #1
new9090
Новичок
Джуниор
 
Регистрация: 24.05.2012
Сообщений: 1
Сообщение Двумерный массив

Дана матрица размерности N на M. Найти строку, в которой максимальный элемент минимален в соответствующем столбце.
new9090 вне форума Ответить с цитированием
Старый 26.05.2012, 18:05   #2
Азам
 
Регистрация: 10.05.2012
Сообщений: 9
По умолчанию

var
i,j,n,m,max1,min1:integer;
a:array [1..100,1..100] of integer;
max,min:array [1..100] of integer;
z:string;
begin
randomize;
max1:=-1000;
min1:=1000;
write('n='); readln(n);
write('m='); readln(m);
write('avto zapolnenie:yes/no='); readln(z);
if z='yes' then

for i:= 1 to n do begin
for j:= 1 to m do begin
a[i,j]:=random(10);

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

end;
end;
for i:= 1 to n do begin
for j:= 1 to m do begin

write(a[i,j]:3);
end;
writeln;
end;



for i:= 1 to n do BEGIN

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

end;
writeln('max',i,'=',max[i]);
end;
writeln('-------------------');
for i:= 1 to n do BEGIN
min[i]:=100;
for j:= 1 to m do begin

min1:=min[i];
if a[j,i]<min1 then
min[i]:=a[j,i];

end;
writeln('min',i,'=',min[i]);
end;
writeln('--------------');
for i:= 1 to n do
if min[i]=max[i] then
writeln('stroka № ',i) else writeln('net takoi stroki');


readln;
end.
Азам вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двумерный массив be-be Помощь студентам 1 10.11.2011 19:16
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 19:17
Двумерный массив JokerWCC Помощь студентам 5 10.10.2010 20:10
двумерный массив! euhenia Помощь студентам 5 08.12.2009 22:49
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40