Переполнение в арифметической операции - PascalABC.NET
Формулировка задачи:
Вот код, говорит, что ошибка находится на строке 10
Как исправить?
Решение задачи: «Переполнение в арифметической операции»
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.