Read pascal Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π² ΠΌΠ°ΡΡΠΈΠ², ΠΏΡΠΈΠΌΠ΅Ρ.
Read pascal Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π² ΠΌΠ°ΡΡΠΈΠ², ΠΏΡΠΈΠΌΠ΅Ρ.
ΠΠ»Ρ Π²Π²ΠΎΠ΄Π° ΡΠΈΡΠ΅Π» Π² ΠΌΠ°ΡΡΠΈΠ² Π»ΡΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Read Π² pascal.
program Read_Sim_Task;
// read pascal
const
n = 10;
var
i, L: word;
i_MasNum: array[1..n] of integer;
begin
//Π·Π°ΠΏΠΎΠ»Π½ΡΠ΅ΠΌ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ read
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ 10 ΡΠΈΡΠ΅Π» ');
for i := 1 to n do
Read(i_MasNum[i]);
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ ΠΌΠ°ΡΡΠΈΠ²Π°
for i := 1 to n do
Writeln('ΠΠ»Π΅ΠΌΠ΅Π½Ρ ', i, ' ', i_MasNum[i]);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
repeat
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ 1 (Π΅Π΄ΠΈΠ½ΠΈΡΠ°) ΠΏΠΎΡΠΎΠΌ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn(L);
until L = 1;
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° read pascal:
ΠΠΏΠ΅ΡΠ°ΡΠΎΡ read pascal.