Поиск минимального элемента в массиве и его индекса на Паскаль

Итак, я продолжаю публиковать решения различных задач на Паскале, выкладывать их исходники и исходные коды. На этот раз выкладываю исходник программы на Паскаль abc - Поиск минимального элемента и его индекса, то есть программа ищет минимальный элемент в одномерном массиве, выводит его и его индекс на экран. Открыть данный исходник можно в программах Pascal ABC.Net, Pascal ABC, TurboPascal (для данной программы необходимо внести соответственные изменения в код - пустой readln в конце) и других. Для поиска минимального элемента в массиве используется цикл FOR. В программе есть пояснительные комментарии к коду. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.

Исходный код программы:

const //Описание констант
  Sz = 100;
var //Описание переменных
  a: array [1..Sz] of real;
  N: integer;   
  min: real;
  minind: integer;
begin
  N := 20; 
  for var i:=1 to N do //Заполнение и вывод массива
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for var i:=1 to N do 
    write(a[i],' ');
  writeln;  
 
  min := a[1]; //Поиск минимального элемента
  minind := 1;
  for var i:=2 to N do
    if a[i]



Скачать исходник: minimal.pas