Юра первое место
Боря второе место
Коля третье
Вова четвёртое место
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
1. Серый волк
2. Серое небо, заяц
3. Белый заяц
4. Красный сок
5. Серый дом
Примерно так
Ответ: 3) Секретное слово (ПАРОЛЬ)
ПАР
МОЛЬ => ОЛЬ
Если слева (внизу или вверху) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).