После получения долгожданной зарплаты семья собирается поехать на мелкооптовый рынок за мясом. в семье (муж, жена и мать жены) из мяса готовят пельмени, котлеты, голубцы и гуляш. у каждого члена семьи - свои соображения о том, на какие блюда лучше использовать мясо. муж хочет, чтобы на голубцы пошло не менее 1кг., а на пельмени и котлеты - не более 5кг. жена считает, что на пельмени и голубцы нужно выделить не менее 4 кг., а на гуляш - как минимум в два раза меньше, чем на пельмени. ее мама хочет на котлеты выделить минимум 2 кг., а на голубцы не более 3 кг. все они согласны в том, что на котлеты и пельмени нужно отвести не меньше половины всего мяса. так как мясо в наше время дорогое, то не хочется покупать лишнего мяса. сколько его купить, чтобы удовлетворить все пожелания всех членов семьи? в экселе
Ответы
Program qq; uses crt; var pr, i, n: integer; a: array[1..32] of integer; begin randomize; writeln ('введите количество элементов в массиве: '); readln(n); for i: =1 to n do begin a[i]: =random(10)+1; write (a[i], ' '); //распечатаем массив для наглядности end; pr: =1; //обнулить переменную мы не можем, ибо у нас произведение. единица же, как начальный множитель нашего произведения, его "обнулит", но качественно ни на что далее не повлияет for i: =1 to n do if a[i]=2*a[i+1] then pr: =pr*a[i]; //если выполняется условие, то умножаем уже полученное произведение на элемент массива writeln; writeln (pr); //выводим произведение на экран end.
Program qq; uses crt; var i, n: integer; a: array[1..20] of real; sum: real; begin writeln ('введите количество элементов массива'); readln(n); writeln ('введите элементы массива'); for i: =1 to n do read (a[i]); sum: =0; //обнуляем переменную суммы for i: =1 to n do if i mod 2 < > 0 then sum: =sum+a[i]; //если индекс нечетный (т.е. его остаток от деления на 2 не равен //нулю), то прибавляем элемент к уже посчитанной сумме writeln (sum: 6: 2); //выводим сумму на экран end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Викторная графика точкарастворная графика. линия
Автор: sn009
выполнить задание ВАРИАНТ
Автор: tcmir
Решите задачу по robowin на английском.
Автор: Amulenkov
Дано : равномерный массив а[n] найти количество отрицательных элементов массива
Автор: Андрееевич787
