ΠΡΠ²ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΏΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
ΠΡΠ²ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΏΠ°ΡΠΊΠ°Π»Π΅ (Pascal).
Π ΠΌΠ°ΡΡΠΈΠ²Π΅ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΠ΅Π· ΠΈΠ½Π΄Π΅ΠΊΡ. ΠΠ½ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΈΠ½Π΄Π΅ΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π°. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΡΠ²ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π° Π² ΠΠ°ΡΠΊΠ°Π»Π΅:
program Mas_Vyv_Task;
//Π²ΡΠ²ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠ°ΡΠΊΠ°Π»Ρ
const
n = 10;
var
i: word;
// Π·Π°Π΄Π°Π΅ΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°. ΠΠ½Π΄Π΅ΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π° 1 ΠΏΠΎ 10
i_MasNum: array[1..n] of integer;
begin
//Π·Π°ΠΏΠΎΠ»ΡΠ΅ΠΌ ΠΌΠ°ΡΡΠΈΠ²
i_MasNum[1] := 4;
i_MasNum[2] := 107;
i_MasNum[3] := -65;
i_MasNum[4] := 3;
i_MasNum[5] := 108;
i_MasNum[6] := 4;
i_MasNum[7] := 16;
i_MasNum[8] := 19;
i_MasNum[9] := 37;
i_MasNum[10] := 1;
for i := 1 to n do // i ΠΈΠ½Π΄Π΅ΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π°
Writeln('ΠΠ½Π΄Π΅ΠΊΡ: ', i, ' Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ', i_MasNum[i]);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΡΠ²ΠΎΠ΄ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΠ°ΡΠΊΠ°Π»Ρ.