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.

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

Question

Информатика

Алодия

25 марта, 04:49

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.

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

+3

Ответы (1)

Знаете ответ?

Эльдия · Answer 1

заполняем массив числами

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

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

если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу