[limelight199]

Даны одномерные массивы x из 5 элементов и y из 6 элементов, построить массив z состоящий из 11 элементов, первые два элемента которого будут минимальными элементами x и y соответственно, третий и четвёртый максимальными элементами х и у, а остальные 7 элементов будут оставшимися элементами массивов x и у.

Задача интересная очень, но меня пока не хватает на её решение, практически весь день думал над нею в универе, даже что то было, но однокурсники отбраковали. Помогите пожалуйста.

[limelight199]

Код:

var type x=array[1..5] of integer;
y=array[1..6] of integer;
z=array[1..11] of integer;
maxx,maxy,minx,miny,i,k,a:integer;
begin
for i:=1 to 4 do
begin
if x[i]>=x[i+1] then
minx:=x[i]
else
minx:=x[i+1];
end;

for k:=1 to 5 do
begin
if y[k]>=y[k+1] then
miny:=y[k]
else
miny:=y[k+1];
end;

for i:=1 to 4 do
begin
if x[i]<=x[i+1] then
maxx:=x[i]
else
maxx:=x[i+1];
end;

for k:=1 to 5 do
begin
if y[k]<=y[k+1] then
maxy:=y[k]
else
maxy:=y[k+1];
end;

Админ: Пользуемся тегами для оформления кода!

Такой отбор макс и мин элементов будет правильным?

[U.B.M.]

эх... а где отступы? не для врагов ведь пишешь... поломайглазкод

Код:

var
  x : array[1..5] of integer;
  y : array[1..6] of integer;
  z : array[1..11] of integer;
  maxx, maxy, minx, miny, i : integer;
begin
  minx := x[1];
  maxx := x[1];
  for i := 1 to 5 do
  begin
    minx := min(minx, x[i]);
    maxx := max(maxx, x[i]);
  end;

  //  аналогично для игрека
end;

[limelight199]

Спасибо, буду думать дальше)