Волк-полк-пола-поза-коза.
1) a:array[1..7] of integer = (25, 24, 10, 60, 4, 100, -11)
или (если без значений)
a:array[1..7] of integer
2) a[5] = 4
3) a[a[5]] = a[4] = 60
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
begin
var a,b,c:real;
Write('Введите a,b,c: '); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
<u>Пример</u>
Введите a,b,c: 8.2 -0.1 1.2
1.2
Поднятие штанги, плавание, гимнастика, бокс.
Делим нацело 8, 15, 13 на 3; 20, 60, 45 на 10; 11, 40, 20 на 5 и выбираем минимальные значения
Сахара нужно: 2
Яиц нужно: 5
Муки нужно: 4