<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
Это невозможно. Ведь есть вероятность того,что карты рубашкой вверх не будут в 2 группах одинакового количества.
Можно, можно числа для проверки сделать массивом, и в цикле сравнивать.
Содержание
Указатель
Поиск
26. Так как до выполнения цикла значение A [2,3] = 5, то подставляем это число в цикл.
I = 2.
J = 3.
A [i,j] = 5+2*(2+3) = 5 + 2*5 = 15.
Ответ: Б.
27. Данная программа вычисляет количество положительных элементов массива.
Приведем в пример произвольный массив: [4, -7, 10].
Выполним программу.
X {1} > 0
Да
K = 1.
X {2} > 0
Нет
X {3} > 0
Да
K = 2.
Итого: 2 положительных элементов массива, значит программа вычисляет количество положительных элементов массива.
Ответ: Г.
28.
Цикл выполняется до тех пор, пока b >= a.
A = 12.
B = 46.
1. B = b - a = 46 - 12 = 34.
2. B = b - a = 34 - 12 = 21.
3. B = b - a = 21 - 12 = 9.
В итоге тело цикла выполняется 3 раза.
Ответ: 3.