Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 11:09
873
Нет индексного свойства по умолчанию для типа 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
·
Хороший ответ
5 апреля 2023 11:09
Остались вопросы?
Еще вопросы по категории Информатика
Кто является первым программистом мира?...
1. Минимально необходимый набор устройств для работы компьютера содержит… a) принтер, системный блок, клавиатуру b) системный блок, монитор, клавиа...
Музыкальный фрагмент был записан в формате моно, оцифрован и сохранён в виде файла без использования сжатия данных. Размер полученного файла – 15 Мбай...
Цвет пикселя на экране монитора формируется из следующих базовых цветов: а) красного, синего, зеленого б) красного, яжёлтого, синего в) жёлтого, голуб...
Заполните пропуски Ячейка таблицы - это структурный элемент листа для х..... и ввода д.... различного типа. Ячейки электронных таблиц формируют р.......