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

Question

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


program max;
var
ar:array[1..10]of integer;
a,c,i,n:integer;
begin
for i:=1 to n do
begin
read(a[i]);
if i=1 then
c:=a[i];
if a[i]>c then
c:=a[i];
end;
writeln(c);
end.

Answer 1

Вы массив объявили с именем  ar, а пытаетесь его использовать с именем а
Исправленный код выглядит так:

var
  ar: array[1..10]of integer;
  a, c, i, n: integer;

begin
read(n);
  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.
 
Вариант №2
program max;
const n = 10;
var
  ar: array[1..10]of integer;
  a, c, i: integer;

begin
  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.

Comments

выводит 0

---

и все

---

нужна программа: пользователь вводит массив из 10 чисел и надо вывести максимальное число

---

Правильно, что не вводится. Вы хотите вводить значение n? Добавлю в решение такой вариант, минуточку.

---

Готово, смотрите

---

нужно чтобы цикл проходил 10 раз, а не 2

---

Ну, так при запуске программы введите первое число = 10, далее вводите 10 элементов массива

---

а можно сделать так, чтобы при запуске программы пользователь вводил 1, и потом было 10 элементов массива?

---

Добавил второй вариант, когда пользователь просто вводит 10 элементов массива

---

Думаю, что так будет логичнее