1) пассажир Иванов живёт в Москве; 2) проводник живёт на полпути между Москвой и Санкт-Петербургом; 3) пассажир-однофамилец проводника живёт в Санкт-Петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира Петрова трое детей; 6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге 8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге 9) п3+п8 = У проводника фамилия Петров 10) п6+п9 = машинист не Сидоров. Машинист - Иванов
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.
2) проводник живёт на полпути между Москвой и Санкт-Петербургом;
3) пассажир-однофамилец проводника живёт в Санкт-Петербурге;
4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника;
5) у пассажира Петрова трое детей;
6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге
8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге
9) п3+п8 = У проводника фамилия Петров
10) п6+п9 = машинист не Сидоров. Машинист - Иванов
ответ: Иванов
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