Регистрация
skvortsovaasya
26.10.2020 16:18
Информатика
Есть ответ 👍

Хелп l(x)=2x11+9x12+7x13...
мережею Хопфілда

149
292
Посмотреть ответы 1

Ответы на вопрос:

anna19762
anna19762
4,6(94 оценок)

Простая программа, для начала мы считаем первое значение сразу в min(это сделано чтобы не давать минимуму значение какой-то константы), затем запускаем цикл, в котором будем вводить число и тут же проверять его на наше условие (поиск минимума). Ну и в конце выводим результат, если что-то непонятно - в комментарии.

var

x, min, i : integer;

begin

writeln('Введите 15 значений: (каждое на новой строке): ');

readln(min);

for i := 1 to 14 do

   begin

   readln(x);

   if min > x then

       min := x;

   end;

writeln('Минимальное число в последовательности:', min);

end.

Популярно: Информатика