Ответы на вопрос:
Var a,b: array[1..7]of integer; i: integer; begin for i: =1 to 7 do a[i]: =random(15)+1; b[1]: =a[7]; for i: =2 to 7 do b[i]: =a[i-1]; for i: =1 to 7 do writeln(a[i]: 4,b[i]: 4); end.
Популярно: Информатика
-
Іванка200617.01.2020 19:44
-
Tooopo103.11.2022 13:10
-
abdullaxadeaygün22.04.2022 05:46
-
Марина1212х05.03.2022 07:37
-
vladuxa031108.07.2021 05:59
-
agarkovr8322.04.2023 07:16
-
superpuperkrosh27.03.2021 19:38
-
13018116.08.2022 18:06
-
HLNLZ16.02.2022 13:58
-
Русалина2111.02.2020 18:59