begin
var arr := ArrRandomInteger(5, 0, 1000);
arr.Println;
var quantity := 0;
for var i := 0 to arr.Length - 1 do
begin
if (arr[i] > 9) and (arr[i] < 100) then
begin
inc(quantity);
end;
end;
write(quantity);
end.
Объяснение:
begin // Начало программы
var arr := ArrRandomInteger(5, 0, 1000); // Объявление массива размером 5 + заполнение массива случайными значениями из диапазона [0, 1000].
arr.Println; // Вывод массива
var quantity := 0; // Переменная, хранящая количество элементов, равна 0
for var i := 0 to arr.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (arr[i] > 9) and (arr[i] < 100) then // Если значение массива с индексом i > 9 И < 100, тогда
begin // Начало условного оператора
begin // Начало условного оператора
inc(quantity); // Увеличиваем значение переменной quantity на единицу
end; // Конец условного оператора
end; // Конец цикла
write(quantity); // Выводим ответ
end. // Конец программы
2
Объяснение:
Найдём значения ячеек A2 и C2:
1 + ( B1 - A1 ) * 3 = 1 + ( 4 - 1 ) * 3 = 1 + 3 * 3 = 1 + 9 = 10
( A1 + B1 ) * 4 = ( 1 + 4 ) * 4 = 5 * 4 = 20
На диаграмме изображены 3 значения, одно из которых в 2 раза больше двух других, равных между собой. Очевидно, что в таком случае значение ячейки B2 будет равно значению A2, то есть 10. Тогда
B1 / 2 + C1 * 4 = 10
4 / 2 + C1 * 4 = 10
2 + C1 * 4 = 10
C1 * 4 = 8
C1 = 2
Гистограмма, построенная по значениям диапазона A2:C2, будет представлять из себя 2 столбика одинаковой высоты и ещё один столбик высотой в 2 раза больше
1)-D
2)-c
3)-B
4)-A