profile="http://gmpg.org/xfn/11"> Read pascal для Π²Π²ΠΎΠ΄Π° Π² массив, ΠΏΡ€ΠΈΠΌΠ΅Ρ€. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

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
ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ read pascal.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.