Индекс элемента массива - 6
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
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
Описание алгоритма:
Пусть даны числа a, b, c, d. Сравниваем a и b, c и d. Затем сравниваем максимальные числа в своих парах (наибольшее из них - максимальное среди всех чисел) и минимальные числа в своих парах (наименьшее из них - минимальное среди всех чисел). Сравниваем оставшиеся два числа и получаем информацию о порядке всех чисел, которую выводим на экран.
Реализация (python 3)
a, b, c, d = map(int, input().split())
if a > b:
a, b = b, a
if c > d:
c, d = d, c
if a > c:
a, c = c, a
if b > d:
b, d = d, b
if b > c:
b, c = c, b
print(a, b, c, d)
Пример ввода:
1 4 2 3
Пример вывода:
1 2 3 4
A:=3 - вместо переменной а будем ставить число 3
b:=2+a - ставим вместо а число 3 и получим b=2+3=5,
теперь вместо a будем ставить 3,
а вместо b будем ставить число 5
a:=b*2*a - ставим справа в выражение вместо a число 3,
а вместо b число 5, получим a=5*2*3=30
и это НОВОЕ значение переменной a! Теперь a=30, b=5
b:=2*a-b - ставим справа в выражение вместо a число 30, а вместо b число 5, получим b=2*30-5=60-5=55, и это НОВОЕ значение переменной b!
Ответ: b=55
