Программа нахождения наименьшего  из  заданного ряда чисел.

Program N18 (Input, Output);          

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..50] Of Real;       

Переменная X - массив действительных чисел из 50 элементов

N             : Integer;              

Переменная N - размерность массива X

Min        : Real;    

Переменная Min - искомый минимальный элемент массива

i               : Integer;              

Переменныя i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Нахождение наименьшего из чисел: x[1],x[2],...,x[N].');   

Формулировка цели алгоритма

Write ('Введите число элементов массива (N<=50) N = ');           

Запрос N - размера исходного массива

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы массива: ');    

Запрос ввода элементов самого массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

Begin    

Начало тела цикла

Write ('X[', i, '] = ');             

Вывод удобной подсказки

ReadLn (X [i] );   

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

Min := X[1];         

За минимальный элемент берем первый элемент массива

For i := 2 To N Do              

Цикл для i от 2 до N сравнения минимального элемента со всеми остальными

If (Min > X [i] ) Then Min := X [i];  

Если элемент Min больше X[i], то заносим X[i] в Min

WriteLn ('Минимальный элемент массива - ', Min: 4: 2);               

Вывод найденного максимального элемента

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.