Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
Думаю чтото вроде того
покрышка часть колеса
колесо часть автомобиля
окно часть автомобиля
стекло часть окна
окно часть дома
дверь часть дома
предмены общие потому что таких домов, окон и тп может быть много
PS. Слова в предложении отделяются друг от друга одним пробелом.
procedure per(s:string);
var s1,s2:string;
i:integer;
begin
s:=s+' ';
s1:='';
s2:='';
for i:=1 to length(s) do
if s[i]<>' ' then
begin
s1:=s1+s[i];
s2:=s[i]+s2;
end
else begin
if s1=s2 then writeln(s1);
s1:='';
s2:='';
end;
end;
begin
per('это шалаш или нет');
end.
Результат:
шалаш
или