Нет индексного свойства по умолчанию для типа integer, исправьте пожалуйста

1. program max;
2. var
3. ar:array[1..10]of integer;
4. a,c,i,n:integer;
5. begin
6. for i:=1 to n do
7. begin
8. read(a[i]);
9. if i=1 then
10. c:=a[i];
11. if a[i]>c then
12. c:=a[i];
13. end;
14. writeln(c);
15. end.

Информатика 9 класс Программирование информатика индексное свойство тип integer исправление ошибки программирование массивы Pascal алгоритмы ввод данных максимальное значение Новый

Привет! Давай исправим твою программу, чтобы она работала правильно и не выдавала ошибок. Основная проблема в том, что ты пытаешься использовать переменную a как массив, хотя она объявлена как integer. Давай изменим это!

Вот исправленный вариант программы:

program max;
var
  ar: array[1..10] of integer; // массив для хранения чисел
  c, i, n: integer; // переменные для хранения максимума и счетчика
begin
  n := 10; // задаем количество чисел, которые будем вводить
  for i := 1 to n do
  begin
    read(ar[i]); // читаем число в массив
    if i = 1 then
      c := ar[i]; // инициализируем максимальное значение первым элементом
    if ar[i] > c then
      c := ar[i]; // обновляем максимум, если текущее число больше
  end;
  writeln(c); // выводим максимальное значение
end.

Теперь программа правильно считает максимальное число из введенных значений. Просто не забудь, что n нужно инициализировать перед циклом, чтобы избежать ошибок. Удачи в программировании!