//PascalABC.NET
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.
const
N = 40;
var
//a : array[1..N] of integer;
i, s, r, x : integer;
sr: real;
begin
//Для любителей заполнять вручную:
//for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями
var a := ArrRandomInteger(N+1, -10000, 10000);
//Гарантировано разместим число, оканчивающееся на 7
a[Random(0,40)] := -10 * Random(0,999) - 7;
//Уберем лишний элемент, созданный автоматически
a[0] := 0;
//Напечатаем массив
a.println;
writeln('----------------');
//Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
//число, учтём его
foreach i in a do
if (i < 0) and (i mod 10 = -7) then begin
r += i; s += 1; write(i,' ')
end;
//Выведем среднее арифметическое
writeln('Ср.ар: ',r/s)
end.
#include <iostream>
int gg(int k, int p, double m)
{
p = (k >= p) ? p : p / k;
return (m * 2 * p);
}
int main()
{
int k, p;
double m;
std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";
std::cin >> k;
std::cout << "Сколько минут жарится одна сторона котлеты ? ";
std::cin >> m;
std::cout << "Сколько котлет вы будете жарить ? ";
std::cin >> p;
std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";
}
Первый способ (большой):
использовать Чертежник
алг Богдан_1
нач
опустить перо
сместиться в точку(0, 11)
сместиться в точку(6, 11)
поднять перо
сместиться в точку(0, 6)
опустить перо
сместиться в точку(6, 6)
сместиться в точку(6, 0)
сместиться в точку(0, 0)
поднять перо
сместиться в точку(8, 0)
опустить перо
сместиться в точку(8, 11)
сместиться в точку(14, 11)
сместиться в точку(14, 0)
сместиться в точку(8, 0)
поднять перо
сместиться в точку(16, 0)
опустить перо
сместиться в точку(16, 11)
сместиться в точку(22, 11)
поднять перо
сместиться в точку(22, 0)
опустить перо
сместиться в точку(22, -2)
сместиться в точку(22, 0)
сместиться в точку(30, 0)
сместиться в точку(30, -2)
сместиться в точку(30, 0)
сместиться в точку(28, 0)
сместиться в точку(28, 11)
сместиться в точку(24, 11)
сместиться в точку(24, 0)
поднять перо
сместиться в точку(32, 0)
опустить перо
сместиться в точку(32, 11)
сместиться в точку(38, 11)
сместиться в точку(38, 0)
сместиться в точку(38, 5)
сместиться в точку(32, 5)
поднять перо
сместиться в точку(40,0)
опустить перо
сместиться в точку(40, 11)
сместиться в точку(40, 5)
сместиться в точку(46, 5)
сместиться в точку(46, 11)
сместиться в точку(46, 0)
кон
Второй способ (короткий):
использовать Чертежник
алг Богдан_2
нач
написать(30, "Богдан")
кон
................................................
Занесем в диапазон ячеек (А1:С3) Тогда формула =МИН(A1:C2)+$C2 будет находить минимальное значение из диапазона A1:C2 и прибавлять к минимальному значению число, находящееся в С2
Если данную формулу скопировать в ячейку D2, то получим формулу
<span>=МИН(A2:C3)+$C3, которая будет искать минимальное значение в А2:С3 и прибавит к полученному минимуму значение из С3</span>