Ошибка exitcode 201 - Free Pascal (2)

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

При вводе вектора выдаёт exitcode 201. Задание было такое: В задаваемом вещественном векторе A размерности n>5. Найти значение и индекс последнего минимального элемента
program h56e; 
var 
a:array[6..100] of integer; 
min,i,n,k:integer; 
begin 
repeat 
writeln('Введите размерность вектора'); 
readln(n); 
until (n>5) and(n<101); 
writeln('Введите вектор'); 
for i:=1 to n do 
readln (a[i]); 
k:=1; 
for i:=1 to n do 
if a[k]<=a[i] then k:=i; 
writeln(('Индекс последнего минимального:'),k,';',Последний минимальный:',a[k]); 
end.


textual

Код к задаче: «Ошибка exitcode 201 - Free Pascal (2)»

for i:=1 to n do 
readln (a[i]);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.875 из 5

Источник
Похожие ответы