Требуется написать программу, которая находит наименьший элемент массива. В качестве языка программирования выбран Паскаль (Pascal). Привожу исходный код программы с комментариями.
program MinElement;
const
{количество элементов массива}
N=10;
var
i,j: integer;
arr: array [1..N] of integer;
begin
{заполняем массив случайными числами}
for j:=1 to N do begin
arr[j]:= random(100);
{выводим элемент}
write(arr[j], ' ');
end;
{пусть наименьшим будет первый элемент}
i := 1;
{перебираем элементы массива}
for j:=2 to N do
{если элемент является наименьшим, то запоминаем его номер}
if arr[i] > arr[j] then i := j;
{выводим наименьший элемент массива}
writeln('element ', arr[i]);
end.
Количество элементов в массиве задается константой N.