Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива

(числа вводятся с клавиатуры)

var
  a: array [0..14] of integer;
  min, max, i: integer;
begin
  for i := 0 to 14 do
    readln(a[i]);
  for i := 0 to 14 do
  begin
    if (a[min] > a[i]) then
      min := i;
    if (a[max] < a[i]) then
      max := i;
  end;
  writeln(min: a[, min, ], #13, max: a[, max, ]);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.