tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Нет индексного свойства по
Нет индексного свойства по умолчанию для типа 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.
benjulia
3 25.07.2019 07:00
0
Ответы
rassvetmoydrug
24.09.2020 11:19
Вы массив объявили с именем 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
eDin7
09.03.2019 02:30
Вэлектронной таблице значение формулы =cpзнач(а1: b4) равно 3.чему равно значение ячейки а4, если значение формулы =сумм(а1: b3) равно 30, а значение ячейки в4 равно 5?...
black103
09.03.2019 02:30
:екіпаж піратського корабля: одноногий капітан,кілька матросів,кок та декілька котів. у всіх них разом 15 голів і 41 ніг і лап. скільки на кораблі котів?...
kocmoc505
25.05.2019 23:00
Каждая буква шифруется двузначным или трехзначгым числом, в зависимости от того гласная она или согласная (при этом не ясно двузначным кодом шифруется гласные или согласные буквы)....
KeKsickON
04.08.2019 03:40
По информатике сколько музыкальных файлов размером 3.2 мегабайтов могут поместиться на флеш карту размером 4 гигобайтов...
haru2000
04.08.2019 03:40
Нужна с нужно дополнить код на питоне. если кто-то разбирается,напишите. обсудим...
ДИЛЯ2002111
04.08.2019 03:40
Составить алгоритм на нахождение суммы неотрицательных чисел из 10 !...
яблоко50
09.07.2019 13:00
125 101 2а-141 перевести вдесятичную систему счисления...
vika23562
09.07.2019 13:10
Сделать в бейсике ! даны действительные положительные числа a b c по трём сторонам с длинами a b c можно построить треугольник . найти углы треугольника...
nik1005TV
09.07.2019 12:05
Как в языке python переменной задать промежуток чисел? например переменной a задать значение от 1 до 100...
denisprokopev
09.07.2019 13:10
Кодирование символов 1.какое минимальное число бит на символ надо выделить в памяти, если требуется использовать не менее 60 символов одновременно? 2. сколько различных символов можно...
Популярные вопросы
Побудувати графік функції y=x^2-√|x|-3...
1
«Өлмейтін даналық қалдырды» деген сөзді қалай түсінесің?...
2
2) Сіз белгілі бір телеарнаның журналисісіз. «Қала тұрғындарының саудаға некемділігі»...
1
120. Укажите неологизм. А) космодром В) скафандрС) биохимикD) брифингE) луноход121....
2
( ) 1.Ф МИШЕР –ИЗУЧАЛ КЛЕТКИ -? 2.ДОБАВЛЯЛ ФЕРМЕНТ -? (ИЗ………….) 3. ИЗВЛЕКАЛ ЧАСТЬ...
3
У меня СОч Вопрос № 1 Разбери предложкeния по членам (синтаксический разбор) Стремительные...
1
TV РЕГИСТРАЦИЯ Введите логин и пароль от услуги «Интернет Дома» лого 0013354021...
2
стрела после вылета из лука вверх в вакууме. КАКОй вид энергии превращается в КАКОй...
1
Информатика 10 класс Задание на фото...
3
Які можуть бути 10 прикладів дифузії?...
3
Исправленный код выглядит так:
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.