Помогите с информатикой, задача на массивы PascalABC

Question

Найти сумму первых N-элементов одномерного массива размером [M]. При N<M и M≤10.  Значения элементов массива задать случайным образом в диапазоне от 10 до 20. Вывести эти значения на экран. Значения N  и  M  ввести с клавиатуры.

user_297436568 · Accepted Answer

Вот в PascalABC:
  const Mas = 1000; 
  var N, M, Sum : integer; 
      A : array [1..Mas] of integer; 
  begin 
    Sum := 0; 
    Repeat  
      WriteLn ( ' Размер массива M <= 10 :'); ReadLn (M); 
      WriteLn ( ' Число элементов массива N < M :'); ReadLn (N); 
    until (M < 11) and ( M > N); 
    WriteLn ( ' Элементы массива: '); 
    for var i := 1 to N do 
    begin  
      A[i] := 10 + Random (11); 
      Write ( '  ', A[i]); 
      Sum := Sum + A[i]; 
    end; 
   WriteLn;  
   WriteLn ( ' Сумма элементов: ', Sum); 
  end.

homme_fringant · Answer

readln ( N, M );
for i:=1 to M do arr[i] := random(10) + 11;
sum :=0;
for i:=1 to N do sum := sum + arr[i];
writeln( sum );
readln;