Найти наименьший элемент массива

 
program mytask;

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const
  MAX_A = 16;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i       : byte;                 //Индекс
  MinA    : byte;                 //Наименьшее значение в массиве
  MaxInt  : ShortInt;             //Наибольшее значение типа
  MinInt  : ShortInt;             //Переменная для поиска
  A       : array[1..MAX_A] of ShortInt;  //Массив

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  MaxInt := High(MaxInt);   //Получить наибольшее значение типа
  randomize;                //Запустить генератор случайных чисел

  //Создать массив и вывести на экран
  for i := 1 to MAX_A do
    begin
      A[i] := random(MaxInt) - (MaxInt div 3);
      WriteLn(A[i]);
    end;

  //Найти наименьший элемент в массиве
  MinInt := MaxInt;
  for i := 1 to MAX_A do
    if A[i] <= MinInt then
      begin
        MinInt := A[i];
        MinA := i;
      end;

  //Вывести решение на экран
  WriteLn('Problem solution:');
  WriteLn('  The smallest value in the array: ', MinInt);
  WriteLn('  Index of the element with the lowest value: ', MinA);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

#include <cstdlib>
#include <iostream>

const int MAX_A = 16;

using namespace std;

char i;           //Индекс
char MinA;        //Наименьшее значение в массиве
char MaxInt;      //Наибольшее значение типа
char MinInt;      //Переменная для поиска
char A[MAX_A-1];  //Массив        

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  MaxInt = CHAR_MAX;   //Получить наибольшее значение типа
  srand(time(0));      //Запустить генератор случайных чисел              

  //Создать массив и вывести на экран
  for(i = 0; i < MAX_A; i++)
  {
    A[i] = (rand() % MaxInt) - (MaxInt / 3);
    cout << int(A[i]) << endl;
  }

  //Найти наименьший элемент в массиве
  MinInt = MaxInt;
  for(i = 0; i < MAX_A; i++)
    if(A[i] <= MinInt)
    {
      MinInt = A[i];
      MinA = i;
    }

  //Вывести решение на экран
  cout << "Problem solution:" << endl;
  cout << "  The smallest value in the array: " << int(MinInt) << endl;
  cout << "  Index of the element with the lowest value: " 
       << int(MinA) << endl;  
  
  system("PAUSE");
  return EXIT_SUCCESS;
}