Вкаждый подарочный набор входят 1 ручка 2 линейки 4 тетради. имеется а линеек, б тетрадей, с ручек. сколько получиться подарочных наборов. в делфи

Var
 a,b,c,d,e,f:longint;
begin
 readln(a,b,c);
 d:=a div 2; e:=b div 4; f:=c;
 if (d<=e) and (d<=f) then write(d)
 else if (e<=d) and (e<=f) then write(e)
 else write(f); readln;
end.

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

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

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41

Нынешний человек чуть ли имеет возможность предположить собственную жизнь без машин. Каждый день или же бывают замечены свежие прибора, или же улучшаются уже имеющие место быть. Люд по-всякому относятся к свежим изобретениям. Кое-какие считают, собственно что трудные девайсы на самом деле могут быть полезны и нужно, в то время, как иные считают их страшными по причине их негативного воздействия на людей. Собственно что касается меня, я безусловно уверена в том, собственно что свежие прибора проделывают нашу жизнь проще.

Для начала, они делают всю нечистую и томную работу, эту как уборка. Во-2-х, прибора сберегают как время, например и пространство. К примеру, компьютерный диск имеет возможность вмещать столько же инфы, как некоторое количество толстых книжек. Наконец, машины могут людям в различных сферах работы.  

Впрочем враги данной точки зрения безусловно не сомневаемся в том, собственно что свежие изобретения негативно воздействуют на людей. Люд не желают трудиться по причине воздействия приборов. Они делаются ленивыми и неорганизованными. Они дожидаются, когда их последние изобретения проделают всё за них. Больше такого, по воззрению научных работников, почти все обширно известные девайсы владеют излучением, которое имеет возможность вызвать нешуточные трудности со самочувствием. Не считая такого, всё более и более людей делаются зависимыми от компа, телека или же мобильного телефонного аппарата. Они игнорируют собственные семейные прямые обязанности, учебу или же работу и проводят всё своё время перед ноутбуком или же экраном телека.