На клавиатуре также располагается несколько клавиш, которые изменяют значение других клавиш:

- клавиша в нажатом состоянии присваивает остальным клавишам другое значение. Если её удерживают нажатой, то при нажатии на буквенные клавиши получают прописные буквы, если включён режим строчных букв, и получают напротив строчные буквы, если включён режим прописных букв;

- клавиша в нажатом положении позволяет использовать цифровую клавиатуру для ввода числовых данных;

- клавиша , нажатая совместно с другими клавишами, присваивает им другое — альтернативное — значение;

- клавиша работает как переключатель: когда она включена, то все введённые буквы будут прописными, когда выключена — строчные

Запас сена составляет sx=50x кг, запас силоса sy=50y кг, запас комбикорма sz=50z кг.
За сутки k коров съедят dx=ka кг сена, dy=kb кг силоса и dz=kc кг комбикорма, после чего запасы уменьшаются:
sx=sx-dx, sy=sy-dy, sz=sz-dz. Этот процесс повторяется и прекращается, если выполняется хотя бы одно из условий:
sx<dx, sy<dy, sz<dz. Количество таких повторений будет ответом на задачу.

sx = 50*int(input("Мешков сена: "))
sy = 50*int(input("Мешков силоса: "))
sz = 50*int(input("Мешков комбикорма: "))
k = int(input("Количество голов в хозяйстве: "))
dx = k*int(input("Дневной рацион коровы (сено), кг: "))
dy = k*int(input("Дневной рацион коровы (силос), кг: "))
dz = k*int(input("Дневной рацион коровы (комбикорм), кг: "))
d=0
while sx>=dx and sy>=dy and sz>=dz:
    d+=1
    sx-=dx
    sy-=dy
    sz-=dz
print("Коров можно кормить еще "+str(d)+" дней (дня)")

program arrmax;

var

 i, i1, i2, amax: Integer;

 a: array [1..10] of integer;

begin

 Randomize;

 for i := 1 to 10 do  // заполнение массива случайными числами

   a [i] := Random (11);

 for i := 1 to 10 do   // вывод на экран элементов массива

   Write (a [i], ' ');

 amax := -1;

 i1 := -1;

 for i := 1 to 10 do   // поиск первого максимального элемента

   if a [i] > amax then begin

     amax := a [i];

     i1 := i;

   end;

 WriteLn;

 WriteLn ('Индекс первого элемента массива с наибольшим значением = ', i1);

 amax := -1;

 i2 := -1;

 for i := 10 downto 1 do   // поиск последнего максимального элемента

   if a [i] > amax then begin

     amax := a [i];

     i2 := i;

   end;

 WriteLn ('Индекс последнего элемента массива с наибольшим значением = ', i2);

 ReadLn;

end.

Объяснение: