|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.12.2008, 16:21 | #1 |
Регистрация: 28.12.2008
Сообщений: 3
|
поменять местами
в массиве найти наибольшый и поменять с первым эелементом
эта элементарность мне не дает пройти дальше. спасибо |
28.12.2008, 16:35 | #2 |
Регистрация: 28.12.2008
Сообщений: 6
|
var a:array[1..100] of real;
i,n,nmax,nmin:integer; max,min:real; begin writeln('введите число элементов массива'); readln(n); writeln('ввод элементов массива'); for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; max:=a[1];nmax:=1; min:=a[1];nmin:=1; for i:=2 to n do begin if a[i]<min then begin min:=a[i]; nmin:=i;end; if a[i]>max then begin max:=a[i]; nmax:=i;end; end; a[nmin]:=max; a[nmax]:=min; for i:=1 to n do write ('a[',i,']=',a[i]:5:3); end. вот держи |
29.12.2008, 16:15 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Только не минимальный меняй с максимальным, а максимальный с первым.
Код:
|
29.12.2008, 21:20 | #4 |
Пользователь
Регистрация: 29.12.2008
Сообщений: 29
|
Даны целочисленная матрица размером n*3,целые числа k,l(1<=k<=n,1<=l<=n,k не равно 1). Преобразовать матрицу так,чтобы строка с исходным номером k непосредственно следовала за строкой с исходным номером l,сохранив порядок следования остальных строк.
Пожалуйста помогите!завтра отчет! |
29.12.2008, 21:48 | #5 | |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Цитата:
Skype : UASm1Le.
|
|
29.12.2008, 22:04 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Ладно не ругайся сильно, видишь горит у человека. И так всех затюкали.
Держи, мужик. Код:
|
29.12.2008, 22:11 | #7 |
Пользователь
Регистрация: 29.12.2008
Сообщений: 29
|
|
29.12.2008, 22:12 | #8 |
Пользователь
Регистрация: 29.12.2008
Сообщений: 29
|
Огромнейшее Спасибо!!!капец выручил!!!это классный форум!
|
04.01.2009, 18:39 | #9 |
Заблокирован
Регистрация: 04.01.2009
Сообщений: 11
|
помогите
помогите...Пожалуста
Новогодняя открытка имеет форму прямоугольника. Кроме того, имеется несколько конвертов прямоугольной формы. Размеры открытки и размеры конвертов даны. Требуется определить, в какие из конвертов можно поместить открытку, а в какие нельзя. Открытка должна целиком войти в конверт. Сгибать и рвать открытку нельзя, зато можно размещать ее в конверте как угодно – не обязательно параллельно краям конверта. Входные данные. В первой строке содержатся два целых положительных числа, разделенных пробелом, – размеры открытки. В каждой из следующих строк содержатся размеры одного конверта в таком же формате. Строка номер (N+1) содержит размеры N-ого конверта. Все чис ла не превосходят 10000. Количество конвертов не превосходит 1000. Выходные данные. Выходные данные должны состоять из 0 и 1: если в N-й конверт можно поместить открытку, то на N-ом месте в единственной строке должна стоять 1, если нельзя – то 0. Количество 0 и 1 должно совпадать с количеством конвертов. |
04.01.2009, 19:17 | #10 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
1..2,1..2 , правила
а так.. циклом проверяй все конверты. чтото типа: if ((длинаоткрытки<=длинаконверта)and( ширинаоткрытки<=ширинаконверта))or( (ширинаоткрытки<=длина конверта)and(длинаоткрытки<=ширинак онверта)) then writeln(1) else writeln(0) ... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поменять местами 3-ю и 4-ую строки массива | танечка155 | Помощь студентам | 3 | 23.11.2010 21:52 |
ПОменять значения местами | qip2005 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 24.12.2008 23:38 |
Поменять местами абзацы | Иллидан | Microsoft Office Word | 1 | 16.09.2008 08:14 |
Как поменять строки местами? | ar. | Microsoft Office Word | 1 | 05.09.2008 11:36 |
поменять местами столбцы | veter_s_morya | SQL, базы данных | 4 | 29.06.2008 13:36 |