Question

Такое ощущение, что алгоритмы этого приложения меня игнорируют Задаю вопрос примерно в 10 раз, а ответа никакого
СРОЧНО, УМОЛЯЮ, ПРОШУ !!!!
ОЧЕНЬ НУЖНО, НЕ СОВСЕМ ПОНИМАЮ, КАК НУЖНО ВЫПОЛНИТЬ ЗАДАНИЕ . ПОЖАЛУЙСТА, НАПИШИТЕ РЕШЕНИЕ С ОБЪЯСНЕНИЕМ , СРАЗУ ПРЕДУПРЕЖДАЮ, ЧТО ЭТО ПАСКАЛЬ ​​

Answer 1

program Prog;

var i, MinElement: Integer;

arr: array[1..15] of Integer;

begin

{ задаем значение минимального элемента. изначально

оно дожно быть максимально возможным, так как мы будем

все элементы с ним сравнить и вычислять, какой из них наименьший.

для этого после того, как мы нашли элемент меньше чем имеющийся минимум,

то мы этот минимум изменяем на найденное нами число }

MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,

но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }

randomize; { это чтоб заполнить рандом. числами }

// запоолнение массива рандомом

for i:=1 to 15 do begin

 arr[i]:=random(100); { для примера числа будут от 0 до 99 }

 { здесь мы как раз сравниваем с имеющимся минимум и меняем его,

 если нашли элемент меньше }

 if arr[i]<MinElement then

  MinElement:=arr[i]

end;

// вывод всего массива

for i:=1 to 15 do

 write(arr[i], ' ');

writeln;

// вывод минимума

writeln('Минимальный элемент: ', MinElement);

end.