Ответы на вопрос:
Точно уверен uses graphabc; begin setwindowsize(400, 400); setwindowtitle('синий прямоугольник с фиолетовой штриховкой'); setbrushstyle(bshatch); setbrushcolor(clmagenta); setbrushhatch(bhvertical); fillrectangle(140,80,320,200); setpencolor(clblue); drawrectangle(140,80,320,200); end.
// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin var a: =arrrandom(readinteger('n=',99); a.println; writeln('число соседств пар чисел разного знака равно ', a.pairwise.where(x-> x[0]*x[1]< 0).count) end. тестовое решение n= 15 7 4 42 -46 12 -34 -58 -49 56 46 -20 30 -22 2 -74 число соседств пар чисел разного знака равно 9
Популярно: Информатика
-
neznayka190009.12.2022 07:22
-
BULATIKSPB12.08.2022 00:22
-
shishkova60019.03.2021 16:15
-
gavul7919.07.2021 08:34
-
iuhagng07.01.2020 13:51
-
sevaismailova219.01.2022 01:39
-
Julia1366200430.06.2021 13:52
-
Danil18507108.06.2022 08:54
-
Vrronika77804.02.2023 05:05
-
nizyulkoelena07.06.2022 16:18