// Минимальный элемент в массиве
const n = 10; 

var 
 a: array [1..n] of integer;
 i,min: integer;

begin
 // Заполнение массива случайными числами 
 for i:=1 to n do
 a[i] := Random(100);

 // Вывод массива 
 write('Массив a: '); 
 for i:=1 to n do
 write(a[i],' ');
 writeln;

 // Алгоритм вычисления минимального элемента
 min := a[1];
 for i:=2 to n do
 if a[i] < min then
 min := a[i];

 writeln('Минимальный элемент в массиве = ',min); 
end.


 Похожие публикации
2015-10-06 • Просмотров [ 233 ]