Программа:
program test;
(c) NaaMan}
var b, n, s1, s2 : integer;
p : Int64;
begin
{Формируем массив А из 17 элементов от 58 до 98}
var a := ArrRandomInteger(17, 58, 98);
{Спрашиваем у пользователя число В}
write( 'Введите число В: ');
readln( b);
{n - счетчик для подсчета элементов, больших В}
{Обнуляем счетчик}
n := 0;
{Просматриваем каждый элемент в массиве а}
ForEach var x in a do
{Если он больше, чем В, по увеличиваем счетчик на 1}
if x > b then n := n + 1;
{Для вычисления произведения используем переменную Р}
p := 1;
{Выберем 5 первых элементов массива, от 0-го до 4-го}
for var x :=0 to 4 do
{Перемножаем}
p := p * a[x];
{Для вычисления суммы четных эл-в используем переменную S1}
s1 := 0;
{Переберем все элементы в массиве}
foreach var x in a do
{Если элемент чётный, т.е. делится на 2 без остатка,
то прибавляем его к S1}
if x mod 2 = 0 then
s1 := s1 + x;
{Для вычисления суммы эл-в, стоящих на нечетных местах,
используем переменную S2}
s2 := 0;
{Просмотрим индексы массива по порядку, 17 штук, от 0 до 16}
for var x := 0 to 16 do
{Если индекс нечетный, т.е. делится на 2 с остатком,
то складываем содержимое массива по этому индексу
с S2}
if x mod 2 = 1 then
s2 := s2 + a[x];
{А теперь всё это безобразие выводим на экран}
{Содержимое массива А}
writeln(a);
writeln( 'Количество элементов массива, больших чем ',b, ' - ', n, ' штук');
writeln( 'Произведение первых пяти элементов р = ', p);
writeln( 'Сумма всех чётных эл-в массива s1 = ', s1);
writeln( 'Сумма эл-в, стоящих на нечетных местах s2 = ', s2);
end.
Результат выполнения программы:
![Дан массив, состоящий из 17 элементов. Заполнить его целыми числами из отрезка [58;98].Вычислить:-Ко](/tpl/images/1727/3195/49047.jpg)
194,27
Формула для вычисления и округления:
=ОКРУГЛ((94+110)-2*(73/(4+11));2)
Объяснение:
Функция ОКРУГЛ округляет число до указанного количества разрядов:
1) если число разрядов больше 0, то число округляется до указанного количества дробных разрядов (справа от запятой)
2) если число разрядов равно 0, то число округляется до ближайшего целого
3) если число разрядов меньше 0, то число округляется до указанного количества целых разрядов (слева от запятой)
ОКРУГЛ(число; число разрядов)
Тут числом выступает данное выражение: (94+110)-2*(73/(4+11)), а для округления до сотых указывается число 2 (после точки с запятой)
Также число можно округлить отрегулировав количество знаков после запятой до нужного (Главная - Число (Числовой формат) - Уменьшить разрядность (Увеличить разрядность)), но только дробные разряды до целого числа
i,n: Integer;
begin
sum:=1;
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
sum:=sum*i;
end;
writeln('(n!+2) = (',n,'!+2)=',sum+2);
end.