IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
Closed Topic Открыть новую тему 
> массивы
сообщение
Сообщение #1


Гость






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


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


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

пусть 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;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.12.2017 5:16
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"