Похожие вопросы
2024-12-02 05:31:08
Нет индексного свойства по умолчанию для типа 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.
Информатика 9 класс Программирование информатика индексное свойство тип integer исправление ошибки программирование массивы Pascal алгоритмы ввод данных максимальное значение
2024-12-12 12:52:01
Привет! Давай исправим твою программу, чтобы она работала правильно и не выдавала ошибок. Основная проблема в том, что ты пытаешься использовать переменную a как массив, хотя она объявлена как integer. Давай изменим это!
Вот исправленный вариант программы:
program max;
var
ar: array[1..10] of integer; // массив для хранения чисел
c, i, n: integer; // переменные для хранения максимума и счетчика
begin
n := 10; // задаем количество чисел, которые будем вводить
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.
Теперь программа правильно считает максимальное число из введенных значений. Просто не забудь, что n нужно инициализировать перед циклом, чтобы избежать ошибок. Удачи в программировании!