Äàíà ìàòðèöà NõÌ, ñîñòîÿùàÿ èç íàòóðàëüíûõ ÷èñåë. Íàéòè â íåé íàèìåíüøèé ýëåìåíò è îïðåäåëèòü åãî ìåñòîïîëîæåíèå. Åñëè òàêèõ ýëåìåíòîâ íåñêîëüêî, òî âûâåñòè íà ýêðàí ïîëîæåíèå êàæäîãî èç íèõ.
Ýòó çàäà÷ó ìîæíî ðåøèòü íåñêîëüêèìè ñïîñîáàìè. Íàïðèìåð, ïîëüçóÿñü òåì, ÷òî ê ýëåìåíòàì ìàññèâà îñóùåñòâëÿåòñÿ ïàðàëëåëüíûé äîñòóï è âîçìîæåí ìíîãîêðàòíûé ïðîñìîòð, ìîæíî îðãàíèçîâàòü äâà ïðîñìîòðà ìàòðèöû. Çà îäèí ïðîñìîòð íàõîäèì ìèíèìàëüíûé ýëåìåíò, è åñëè òàêèõ ýëåìåíòîâ íåñêîëüêî, òî çà âòîðîé ïðîñìîòð îïðåäåëÿåì èõ ìåñòîïîëîæåíèå.
PROGRAM PG5_1;
CONST
T = 100;
S = 100;
VAR A : ARRAY[1..T, 1..S] OF INTEGER;
N, M, IM, JM, I, J, MIN, Ê : INTEGER;
BEGIN
WRITE('BBEÄÈTE ÊÎËÈ×ÅÑÒÂÎ ÑÒÐÎÊ N = ');
READLN(N);
WRITE('BBEÄÈTE ÊÎËÈ×ÅÑÒÂÎ ÑÒÎËÁÖÎÂ Ì = ');
READLN(M);
FOR I := 1 TO N DO BEGIN
WRITELN('BBÅÄÈTE ×ÅÐÅÇ ÏÐÎÁÅË ', M, ' ×ÈÑÅË');
FOR J := 1 ÒÎ Ì DO
READ(A[I, J])
END;
MIN :=A[1, 1];
IM := 1;
JM := 1;
K := 0;
FOR I := 1 TO N DO
FOR J := 1 TO M DO
IF MIN>A[I, J] THEN
BEGIN
K:= 1;
IM:=I;
JM:=J;
MIN := A[l, J]
END
ELSE
IF MIN = A[l, J] THEN
Ê := K+1;
IF Ê = 1 THEN
BEGIN
WRITELN('B ÌÀÒÐÈÖÅ ÎÄÈÍ ÌÈÍÈÌÀËÜÍÛÉ ÝËÅÌÅÍÒ MIN =', MIN);
WRITELN('B ', IM, 'ÑÒÐÎÊÅ, Â ', JM, ' ÑÒÎËÁÖÅ')
END
ELSE
BEGIN
WRITELN('B ÌÀÒÐÈÖÅ ', Ê, 'ÌÈÍÈÌÀËÜÍÛÕ ÝËÅÌÅÍÒÎÂ MIN = ', MIN);
FOR I := IM TO N DO
FOR J := 1 TO M DO
IF MIN = A[l, J] THEN
WRITELN('B ÑÒÐÎÊÅ ', I, ' Â ÑÒÎËÁÖÅ ', J)
END
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì ðàçìåðû ìàññèâà À è çíà÷åíèÿ åãî ýëåìåíòîâ;
- ïðîñìàòðèâàåì ýëåìåíòû ìàññèâà, èùåì ìèíèìàëüíîå çíà÷åíèå è çàïîìèíàåì çíà÷åíèå èíäåêñîâ;
- ñ÷èòàåì êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ;
- â çàâèñèìîñòè îò Ê ëèáî âûâîäèì èíôîðìàöèþ î åäèíñòâåííîì ìèíèìàëüíîì ýëåìåíòå, ëèáî îðãàíèçóåì ïîâòîðíûé ïðîñìîòð ìàññèâà À äëÿ âûâîäà èíôîðìàöèè î âñåõ ìèíèìàëüíûõ ýëåìåíòàõ.
Ïåðåìåííûå:
À - äâóìåðíûé ìàññèâ;
N, Ì - êîëè÷åñòâî ñòðîê è ñòîëáöîâ ìàññèâà;
I, J - ïåðåìåííûå öèêëà;
Ê - êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ;
IM, JM - ñòðîêà è ñòîëáåö ìèíèìàëüíîãî ýëåìåíòà;
MIN - òåêóùèé ìèíèìóì.
{SITELINK-S263}ÂÒÎÐÎÉ ÑÏÎÑÎÁ ÐÅØÅÍÈß ÇÀÄÀ×È{/SITELINK}
|