// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
5)
найдем: A2 Б2 С2 Д2
18 2 2 ?
по рисунку видно,что 3 одинаковых кусочка,следовательно,ищем 2
это номер 2) 1+1=2
ответ:2
6) в данном случае считаем у 3 последних точек абсциссы и ординаты
(-1;0) ; (2;-2) ; (3;4)
-1+2+3=4
0-2+4=2
(4;2) и теперь надо эту точку повторить 3 раза
т.е умножаем на 3
(12;6)
ответ:(12;6)
(прошу отметить как лучшее,очень нужно,спасибо))
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 15);
a.Where(t -> t mod 7 = 3).Println();
end.