Вопрос Pascal помогите.....

[XGAMING]

когда пишу for var i

.....

program AverageArray;

const
  MaxSize = 100;

var
  R: array[1..MaxSize] of Real;
  n, i: Integer;
  sum, average: Real;

begin
  { Ввод размера массива }
  write('Введите размер массива (n): ');
  readln(n);

  { Ввод элементов массива и вычисление суммы }
  sum := 0;
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('r', i, ': ');
    readln(R[i]);
    sum := sum + R[i];
  end;

  { Вычисление среднего арифметического }
  if n > 0 then
    average := sum / n
  else
    average := 0;

  { Вывод результата }
  writeln('Среднее арифметическое: ', average:0:2);
end.

 

[sky1e]

я не знаю, но попробуй так обьявить интигер

for var i: Integer := 1 to n do