массивы - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Сайт «Всё о Паскале» > Форум > Pascal, Object Pascal > Теоретические вопросы

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

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

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

массивы

Опции

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

mj	12.12.2002 4:08 Сообщение #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;