Ответы на вопрос:
Здесь, как говорится, возможна масса разных вариантов. один из самых простых такой: var i,j: integer; begin for j: =1 to 5 do begin for i: =1 to 8 do write('* '); writeln; for i: =1 to 8 do write(' *'); writeln; end; end.если не подойдет - уточняйте требования к программе.
Var a: array[1..20] of real; i: integer; begin for i: =1 to 20 do begin a[i]: =random(20); writeln('число: ',a[i]); end; a[5]: =a[10]; a[10]: =a[5]; for i: =1 to 20 do writeln(a[i]); end.
Популярно: Информатика
-
KateDonut103.10.2021 19:07
-
rgh22334404.03.2021 00:49
-
Nikita1240931.01.2022 12:04
-
brijet200727.01.2023 06:24
-
tropika3323.08.2022 11:34
-
osolonskaya25.02.2020 08:01
-
feyruz70714.12.2021 03:35
-
lerasifr20.07.2021 02:17
-
fira910902fira21.05.2021 00:02
-
пипл427.04.2020 19:51