Технология выполнения индивидуальных заданий. Часть 1 - 31 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

31
n:=m div 2;
ia:=0;ib:=0;
for i:=1 to n do
begin
MinPair(m,a,k,p);
if k>p then {k – индекс меньшего, p – индекс большего}
begin r:=k; k:=p; p:=r end;
ia:=ia+1; b[ia]:=a[k];
ib:=ib+1; c[ib]:=a[p];
{удаляется вначале элемент с большим индексом}
DelElement(m,a,p);
DelElement(m,a,k);
end;
writeln('Массив b');
writeArr(n,b);
writeln('Массив c');
writeArr(n,c)
end.
Тестовые примеры
1) n = 10, a = (1, 5, 20, 70, 25, 45, 8, 100, 15, 50)
b = (5, 20, 45, 1, 70), c = (8, 25, 50, 15, 100).
2) n = 6, a = (2, 4, 6, 8, 10, 12)
b = (2, 6, 10), c = (4, 8, 12)
3) n = 6, a = (2, 2, 2, 2, 2, 2)
b = (2, 2, 2), c = (2, 2, 2)

Страницы