|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2010, 19:20 | #1 |
Пользователь
Регистрация: 27.05.2010
Сообщений: 18
|
Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается эл
не могу никак решить. прошу помощи!
Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать ин-дексы элемента с найденным значением. вот наработка: program devyat; uses crt; type mas=array[1..100,1..100] of real; var matr:mas; n,h,m,s,i,j:integer; min,min1,g:real; BEGIN writeln ('vvedite kol-vo strok'); read (n); writeln ('vvdite kol-vo stolbcov'); read (m); for i:=1 to n do begin for j:=1 to m do begin writeln ('vvedite [',i,';',j,'] element'); read(matr[i,j]); end; end; for i:=1 to n do begin min:=matr[i,1]; writeln ('min1 ',min); for j:=1 to m do g:=matr[i,j]; if g<min then begin min:=matr[i,j]; s:=j; end else s:=1; writeln ('mins [',i,';',s,']'); end; for i:=1 to n do begin for j:=1 to m do write(matr[i,j],' '); writeln; end; repeat until keypressed; end. криво проверяет условие на нахождение наименьшего элемента в строке. |
28.05.2010, 08:44 | #2 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 31
|
Сложная задача... не как не могу понять.
|
28.05.2010, 10:29 | #3 |
Форумчанин
Регистрация: 04.05.2010
Сообщений: 495
|
Код:
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948 |
30.05.2010, 12:48 | #4 |
Пользователь
Регистрация: 27.05.2010
Сообщений: 18
|
спасибо) вот ток еще одна трабла возникла, не могу придумать как сделать так чтобы при вводи в массив программа не допускала повторения элементов
|
30.05.2010, 19:47 | #5 |
Форумчанин
Регистрация: 04.05.2010
Сообщений: 495
|
Код:
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948 |
30.05.2010, 21:32 | #6 |
Пользователь
Регистрация: 27.05.2010
Сообщений: 18
|
спасибо большое)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
. Дана действительная матрица размером n x m. Требуется преобразовать матрицу следующим образом: поэлемен | Figushkin | Помощь студентам | 1 | 27.05.2010 18:58 |
Дана матрица размера 5 x 10. В каждой строке найти количество элементов | Executioner3 | Помощь студентам | 12 | 11.05.2010 16:27 |
Дана действительная матрица А(i,j), i,j=1,...,n. Получить матрицу В(i,j) | alexandra2 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.04.2010 20:44 |
В каждой строке массива выбирается максимальный элемент | sergeyfsd | Общие вопросы Delphi | 2 | 13.05.2008 00:10 |
найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив | W_P | Помощь студентам | 6 | 28.12.2007 00:24 |