3 марта, 22:52

Var i, n: integer;

Ves: array[1 ... 14] of integer;

Begin

Ves[1]: = 25; Ves[2]: = 21;

Ves[3]: = 23; Ves[4]: = 28;

Ves[5]: = 30; Ves[6]: = 25;

Ves[7]: = 31; Ves[8]: = 28;

Ves[9]: = 25; Ves[10]: = 28;

Ves[11]: = 30; Ves[12]: = 27;

Ves[13]: = 26; Ves[14]: = 24;

n : = Ves[1];

For i : = 1 to 14 Do

If Ves[i] < n Then

Begin

n : = Ves[i];

End;

Writeln (n);

End.

Объясните задачу!

+1
Ответы (1)
  1. 3 марта, 23:09
    0
    заполняем массив числами

    затем присваиваем минимальное значение первому элементу

    после этого проверяем, есть ли в массиве числа меньше

    если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Var i, n: integer; Ves: array[1 ... 14] of integer; Begin Ves[1]: = 25; Ves[2]: = 21; Ves[3]: = 23; Ves[4]: = 28; Ves[5]: = 30; Ves[6]: = ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы