Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
1 апреля 2023 20:25
726
Нет индексного свойства по умолчанию для типа 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
·
Хороший ответ
3 апреля 2023 20:25
Остались вопросы?
Еще вопросы по категории Информатика
Найдите в Интернете информацию о технологии листающего сканирования. В чём её суть? ...
Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями: F(n) = 1 при n = 1; F(n) = n + F(n − 1), е...
Даны операторы Python при работе с циклами. Установите соответствие...
1.Информация ... внешней ... компьютера 2.Каждый файл имеет собственное имя и ... ... ... ... 3.Создание файла и папки ,переименование,... .... 4.Дл...
Сколько битов содержит 1/8 кбайта?...
Все предметы