Переполнение в арифметической операции - PascalABC.NET

Формулировка задачи:

Вот код, говорит, что ошибка находится на строке 10

                    Листинг программы
                
 
                        
                          
                    
uses crt;
 
var
n,i : integer;
max : longint;
mass: array [1..10] of integer;
 
begin
write ('Введите количество элементов в массиве: '); readln(n);
 max:=-(MAXINT+1);
  for i:=1 to n do begin
    read(mass[i]);
    if max < mass[i] then max:= mass[i];
  end;
  write(max);
end.

Как исправить?

Решение задачи: «Переполнение в арифметической операции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
var
  n, i, max : integer;
  mass : array of integer;
 
begin
  n := ReadLnInteger('Введите количество элементов в массиве:');
  SetLength(mass, n);
  max := integer.MinValue;
  for i := 0 to n-1 do
    begin
      mass[i] := ReadLnInteger( String.Format('mass[{0}] =', i+1) );
      if max < mass[i] then
        max := mass[i];
    end;
  WriteLn('mass = ', mass);
  WriteLn('Наибольший элемент = ', max);
end.

Оцени полезность:

11 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы