|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2012, 09:28 | #1 |
Новичок
Джуниор
Регистрация: 24.05.2012
Сообщений: 1
|
Двумерный массив
Дана матрица размерности N на M. Найти строку, в которой максимальный элемент минимален в соответствующем столбце.
|
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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
двумерный массив | 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 |