begin var x := ReadInteger('Введите длину массива'); var a := ArrRandom(x, -30, 30); Println('Массив', a); Println('Положительных: ', a.Where(y -> y > 0).Count); Println('Отрицательных: ', a.Where(y -> y < 0).Count); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
