ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠ°Π΄Π°ΡΠ° Π½Π°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΏΠ°ΡΠΊΠ°Π»Π΅ ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊ Π΄Π²ΡΠΌ ΡΠΈΠΊΠ»Π°ΠΌ. ΠΠ΅ΡΠ²ΡΠΉ ΡΠΈΠΊΠ» ΠΏΡΠΎΡ
ΠΎΠ΄ΠΈΡ ΠΏΠΎΡΡΡΠΎΡΠ½ΠΎ, Π²ΡΠΎΡΠΎΠΉ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ. ΠΡΠΈΡΠ΅ΠΌ, Π²ΡΠΎΡΠΎΠΉ ΡΠΈΠΊΠ» ΠΏΡΠΎΡ
ΠΎΠ΄ΠΈΡ Π²Π½ΡΡΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΈΠΊΠ»Π°. ΠΠ΅ΡΠ΅Π΄ ΡΠΈΠΊΠ»ΠΎΠΌ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ i_Min, Π² ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅ΠΌ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°.
program Task_Min_2Mer1;
{Π·Π°Π΄Π°ΡΠΈ Π½Π° ΡΠΈΡΠ»Π° ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ}
{Π½Π°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠ°ΡΠΊΠ°Π»Ρ}
var
i, j, i_Min: integer;
i_ArrNum: array[1..5, 1..4] of integer;
begin
WriteLn('ΠΠ°Π΄Π°ΡΠ°, Π½Π°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°:');
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ 20 (Π΄Π²Π°Π΄ΡΠ°ΡΡ) ΡΠΈΡΠ΅Π»:');
for i := 1 to 5 do // ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ
for j := 1 to 4 do // ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ
ReadLn(i_ArrNum[i, j]);
i_Min := i_ArrNum[1, 1];//ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°
i := 1;
repeat // ΡΠΈΠΊΠ» ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ
j := 1;
repeat // ΡΠΈΠΊΠ» ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ
if i_Min > i_ArrNum[i, j] then
i_Min := i_ArrNum[i, j];
j := j + 1;
until j > 4;
i := i + 1;
until i > 5;
WriteLn('ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° = ', i_Min);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ:
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΠΈ ΠΌΠ°ΠΊΡΠΈΠΌΡΠΌ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ β Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ).
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠ»ΠΎ ΡΠΈΠΏΠ° Integer Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
ΠΠ°ΠΉΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈ Π΅Π³ΠΎ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ. ΠΠ°ΡΠΊΠ°Π»Ρ (Pascal).
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π°, ΡΡΠΎ ΡΡΠΎ?
Π° ΠΏΡΠΈ Π²ΡΠ²ΠΎΠ΄Π΅ Π½Π° ΡΠΊΡΠ°Π½
ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΠΎΡΠΎΡΠΌΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ² Π΄Π²ΡΡ ΠΌΠ΅ΡΠ½ΡΠΌ?
Π° ΡΠΎ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ ΠΊΠ°ΠΊ ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ²
ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· 20 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²
for i := 1 to 5 do // ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ
begin
for j := 1 to 4 do // ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ
begin
Write(i_ArrNum[i, j], ' ');
if j = 4 then
WriteLn();
end;
end;
ΠΠ°ΠΊ Π²ΡΠ²Π΅ΡΡΠΈ ΠΌΠ°ΡΡΠΈΠ² Π² Π²ΠΈΠ΄Π΅ ΠΌΠ°ΡΡΠΈΡΡ ΠΏΠ°ΡΠΊΠ°Π»Ρ?