// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(100,-20,20); a.Println;
WritelnFormat('Положительных {0}, отрицательных {1}',
a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54
Посчитаем значения ячеек A2:C2.
A2 = 1*3 = 3.
B2 = 6/2 = 3.
C2 = 2+1 = 3.
Получается, что данные ячейки равны и на диаграмме отображены одинаковыми частями.
Смотря на диаграмму, понимаем, что диапазон ячеек A2:C2 составляют 1/4 ее часть. Суммируем их, получаем "9". Умножаем на "4", итог - 36. Из этого вычитаем диапазон A2:C2 (36 - 9) = 27.
Из предложенных формулы ищем ту, что дает 27.
1) 5 + 12 = 17.
2) 9 * 3 = 27.
3) 8 * 3 = 24.
4) 3 + 15 = 18.
Получаем, что ответ формула под номером 2.
Ответ: 2.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.