Нахождение максимального

@Dyaside1 · Регистрация: 28.10.2013

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

Здравствуйте ! Помоги, пожалуйста, решить не трудную задачку !

В двумерном массиве X(m,n) все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел находится максимальное. Напечатать индексы ( номер строки и номер столбца) этого элемента.

@Catstail · 15.01.2016, 14:54

На списках:

Haskell

task :: [[Integer]] -> (Int,Int)
task x = head r
         where a_min = maximum $ map minimum x
               n     = (length x)-1
               m     = (length $ head x)-1
               indx  = [(i,j) | i<-[0..n],j<-[0..m]]
               r     = filter (\ (ii,jj) -> a_min == (x !! ii) !! jj) indx

@Dyaside1 · 15.01.2016, 17:58 **[ТС]**

А вот эту запустить как? )

@Catstail · 15.01.2016, 18:06

Так:

@Dyaside1 · 15.01.2016, 18:06 **[ТС]**

Catstail, Вы не много не то выводите. Можно по типу этого ?

@Catstail · 15.01.2016, 18:12

Haskell

import System.IO
 
task :: [[Integer]] -> (Int,Int)
task x = head r
         where a_min = maximum $ map minimum x
               n     = (length x)-1
               m     = (length $ head x)-1
               indx  = [(i,j) | i<-[0..n],j<-[0..m]]
               r     = filter (\ (ii,jj) -> a_min == (x !! ii) !! jj) indx
               
main = do
       putStrLn "Please, enter array in form [[..],[..],[..]]"
       arr <- getLine
       putStrLn $ show $ task (read arr :: [[Integer]])

@Dyaside1 · 15.01.2016, 18:19 **[ТС]**

Catstail, Все правильно, спасибо !

@Dyaside1 1 / 1 / 0 Регистрация: 28.10.2013 Сообщений: 77
		1
	Нахождение максимального 15.01.2016, 13:13. Показов 2339. Ответов 6 Метки нет (Все метки) Здравствуйте ! Помоги, пожалуйста, решить не трудную задачку ! В двумерном массиве X(m,n) все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел находится максимальное. Напечатать индексы ( номер строки и номер столбца) этого элемента. 0

@Dyaside1 1 / 1 / 0 Регистрация: 28.10.2013 Сообщений: 77
	15.01.2016, 17:58 [ТС]	3
	А вот эту запустить как? ) 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	15.01.2016, 18:06	4
	Так: Миниатюры 0

@Dyaside1 1 / 1 / 0 Регистрация: 28.10.2013 Сообщений: 77
	15.01.2016, 18:06 [ТС]	5
	Catstail, Вы не много не то выводите. Можно по типу этого ? Миниатюры 0

@Dyaside1 1 / 1 / 0 Регистрация: 28.10.2013 Сообщений: 77
	15.01.2016, 18:19 [ТС]	7
	Catstail, Все правильно, спасибо ! 0

Нахождение максимального

Решение