Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ массивы

Автор: alic 10.12.2002 11:37

помогите решить
дан массивС[2n] нужно в нём найти 2 близких по значению числа и отправить их в массивы А[n] и B[n]
так продолжать до полного формирования массивов А и В

Автор: mj 12.12.2002 4:08

вроде должно работать если заранее посчитать суммы и положить в последнюю ячейку каждого ряда

пусть a - масив, h - кол. эл. масива по X, без последнего, где сумма лежит, w - кол. эл. масива по Y и первый эл. = 0...

for z = 0 to w-2 do
for x = z+1 to w-1 do
if a[h, z]>a[h, x] then
for v := 0 to h do
begin
t := a[v, z];
a[v, z] := v[h, x]
a[v, x] := t;
end;