Нет индексного свойства по умолчанию для типа 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.
Ответ
2.5/5 (2 оценки)
4
vladmor 8 лет назад
Светило науки - 1071 ответ - 0 раз оказано помощи
Вы массив объявили с именем  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.



Оцените пользу ответа
Мозг Отвечающий

Остались вопросы?

Задать вопрос