наст55

25.02.2021 14:11

Информатика

Есть ответ 👍

Паскаль доводит меня до слёз , УМОЛЯЮ , НАПИШИТЕ РЕШЕНИЕ С ОБЪЯСНЕНИЕМ , СРАЗУ ПРЕДУПРЕЖДАЮ, ЧТО ЭТО ПАСКАЛЬ
Решать на уровне 9 класс

204

482

Посмотреть ответы 3

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

lera933737

Информатика

4,6(95 оценок)

Простая программа, для начала мы считаем первое значение сразу в 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.

никаника6

Информатика

4,7(30 оценок)

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.

ainexl

Информатика

4,8(59 оценок)

2. (a-13)%10==0 3. для области, показанной на рисунке, логическое выражение: (x> 3)& & (y> 1)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.