Ответы на вопрос:
Использовать чертежник алг нач опустить перо сместиться на вектор (0,4) сместиться на вектор (-1,-1) поднять перо сместиться на вектор (4,-3)
1. var a: array[1..30000] of integer; b,x: integer; begin for x: =1 to 30000 do begin readln(a[x]); if a[x]< 0 then b: = b+a[x]; end; end. 2. var a: array[1..30000] of integer; b,x: integer; begin b: = 1; for x: =1 to 30000 do begin readln(a[x]); if a[x] mod 3 = 0 then b: = b*a[x]; end; end.
Популярно: Информатика
-
1Velkon131.05.2021 18:31
-
ALXEN0323.01.2022 18:43
-
mschibarova20111.02.2020 21:52
-
влад229922.11.2020 04:24
-
Dimkakrut24.05.2021 12:02
-
altynai050418.02.2023 08:08
-
kisakz1206.02.2022 09:55
-
Vlab3653423.01.2021 17:11
-
hocoladka17.01.2022 22:50
-
JustNika27.12.2020 11:13