Регистрация
Войти
Стать экспертом Правила
Информатика

В массиве с = {1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива

ОТВЕТЫ
//PascalABC.Net 3.1 сборка 1200
var
    c: array of integer := (1, 2, -3, 0, -1, -7, -9, 9, 10, -3);

begin
//    c := ArrRandomInteger(10, -10, 10);
    Println(c);
    Writeln(c.Pairwise().Where(x -gt; x.Item1 * x.Item2 gt; 0));
end.
110
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам