Найти индекс минимального элемента массива. - Pascal ABC

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

Писал решение задачки: Массив задан датчиком случайных чисел от -15 до 15. Найти индекс минимального элемента. При попытке запуска части кода для проверки правильности заполнения массива выдает ошибку 215 - Арифметическое переполнение. Не пойму, что не так!? Вот фрагмент кода:
uses Crt;
 
var
   a: array[1..100] of Integer;
   i,n: integer;
begin
     ClrScr;
     writeln('Enter the length of array: ');
     readln(n);
     ClrScr;
     randomize;
     for i:=1 to n do
     begin
          a[i]:=random(30) - 15;
          write(a[i]:3);
     end;
 
     ReadKey;
end.

Код к задаче: «Найти индекс минимального элемента массива. - Pascal ABC»

textual
a[i]:=-15+random(30);

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы