Синтаксис массива в паскале

Question

Я программист на Java, но теперь я начинаю изучать программирование на Паскале. Не могли бы вы помочь, пожалуйста, Как написать этот синтаксис Java в Паскаль

        A[m] = scan.nextInt();

Программа заключается в том, чтобы попросить пользователя ввести «размер», а затем ввести элемент ... (используя массив) Я сделал это:

writeln('How many Number you would like to sort:');
  readln(size);


  For m := 1 to size do
Begin
   if m=1 then 
 begin 
 writeln('');
 writeln('Input the first value: ');
     (????)



 End;

Я не знал, как это сделать?

Синтаксис Java:

for( m = 0; m<size; m++)
{
    if(m == 0)
    {   
        System.out.println("");
        System.out.print("^_^ Input The First Value:");
        A[m] = scan.nextInt();
    }
    else if(m == size -1)
    {
        System.out.print("^_^ Input The Last Value:");
        A[m] = scan.nextInt();
    }
    else
    {
        System.out.print("^_^ Input The Next Value:");
        A[m]= scan.nextInt();
    }
}

спасибо

Answer 1

Try: ReadLn (а [м]); * * тысяча одна

Answer 2

read(a[m]);

должно работать идеально.

Answer 3

Набрав здесь вслепую, но, надеюсь, концепция натолкнется на:

{ in declarations }
var A: array[1..99] of integer;   { or however many you need; data workspace }
    m: integer;   { loop index }
    size: integer;


{ in code }
fillchar(A,sizeof(A),#0);  { just good practice to clear out the workspace before starting}
writeln('How many Number you would like to sort:');
readln(size);

For m := 1 to size do
  begin
    if (m=1) then 
      writeln('Input the first value: ')
    else
      if (m=size) then
        writeln('Input the last value: ')
      else
        writeln('Input the next value: ');
    readln(a[m]);
  end;

Обратите внимание, что я использовал массив с 1 индексом, а не индексированный с нуля.Никакой другой причины, кроме того, что я предпочитаю это, экономит, используя "-1" повсюду.

Answer 4

Это попытка использовать массив для получения данных. Размер массива ps ограничен переменной.

var / type
A = array [1..13] : integer;
m : integer;

repeat
    readln (A[m]);
    m:=m+1;
until (m<=10);

Я думаю ...