Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 16:35
1206
Нет индексного свойства по умолчанию для типа 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.
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.
Исправленный код выглядит так:
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.
0
·
Хороший ответ
4 апреля 2023 16:35
Остались вопросы?
Еще вопросы по категории Информатика
На отрезке [0;2] вычислить значения функции f(x) = cosx+x с шагом 0,2. 1. Заполните таблицу по образцу:...
Глубина цвета - длина двоичного кода, который используется для кодирования цвета пикселя. Количество цветов N в палитре и глубина i цвета связаны межд...
Рисунок размером 128 на 128 пикселей подготовили в палитре, использующей 24 цвета. Какой объем в Кбайтах имеет этот рисунок?...
Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 30, запись которых в системе счисления с основанием 5 начинается на...
3. Маша хотела поделиться впечатлениями об Олимпийских играх с подругами, но забыла, где именно она сохрани- ла фотографию Сочи.jpeg. Ниже представле...