Ответы на вопрос:
Const n=20; var a: array[1..n] of integer; b,c: array[1..n div 2] of integer; i: integer; begin { инициализация } randomize; writeln('элементы массива'); for i : = 1 to n do begin a[i]: =random(99)+1; { интервал [1..99] } write(a[i],' '); end; writeln; { формирование массивов-результатов } for i: =1 to n div 2 do begin b[i]: =a[2*i-1]; c[i]: =a[2*i] end; { вывод результатов } writeln('массив, сформированный из значений с нечетными номерами'); for i: =1 to n div 2 do write(b[i]: 3); writeln; writeln('массив, сформированный из значений с четными номерами'); for i: =1 to n div 2 do write(c[i]: 3); writeln end. тестовое решение: элементы массива 20 99 21 39 51 96 76 1 64 32 41 80 19 30 37 55 40 24 60 50 массив, сформированный из значений с нечетными номерами 20 21 51 76 64 41 19 37 40 60 массив, сформированный из значений с четными номерами 99 39 96 1 32 80 30 55 24 50
Популярно: Информатика
-
LizaVeta28125.09.2022 18:43
-
незнайка116615.04.2022 02:27
-
nazarshariu7713.01.2021 21:20
-
YTTeamGardnYT06.12.2021 10:10
-
errreir26.11.2021 10:46
-
МарвиСК26.09.2021 01:54
-
shishkova60019.03.2021 16:15
-
Sapff1ra17.06.2021 11:41
-
basa413.10.2021 15:40
-
NastiaKostiuk30.07.2020 09:00