01.04.2010, 16:41 | #2 (ссылка) |
Новичок
Регистрация: 10.07.2009
Сообщений: 227
Репутация: 17
|
Анюта01, долго думал над задачей, но все-таки решил
Код:
program hh; uses crt; const n= 10; var a:array [1..n] of integer; k,u,y,j,max,i:integer; begin For i := 1 to n do begin a[i]:=random(20); write(a[i],' '); end; max:=1; for k:=1 to n do begin if a[k]>a[max] then max:=k; end; writeln('номер максимального элемента массива=' ,max); for i:=1 to max-1 do for j:=i+1 to max do if a[i]>a[j] then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; end; write('упорядоченный массив по возрастанию - '); for i:=1 to max do write(a[i],' '); for i:=max to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin u:=a[i]; a[i]:=a[j]; a[j]:=u; end; write('упорядоченный массив по убыванию - '); for i:=max to n do write(a[i],' '); readln; end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Help( | Ivashka | Программирование | 3 | 05.02.2011 05:17 |
Паскаль =( | Гульназ | Программирование | 0 | 22.12.2010 20:44 |
Паскаль ЗАДАЧА!!!! | Мирзефер | Программирование | 0 | 19.12.2010 19:38 |
Динамические массивы в pascal | deryck | Программирование | 0 | 24.11.2010 21:01 |
Паскаль. Задача. | m.k | Программирование | 1 | 02.05.2010 15:30 |
Паскаль, строки | ZONDO | Программирование | 3 | 01.05.2010 17:24 |
паскаль-строки | denis_stell | Программирование | 0 | 25.04.2010 15:54 |
График функции, Паскаль | Анюта01 | Программирование | 3 | 03.04.2010 15:24 |
Паскаль, подпрограммы | ZONDO | Программирование | 1 | 02.04.2010 10:17 |
Паскаль | sanyacech | Программирование | 11 | 23.03.2010 18:52 |
Двумерные массивы | ZONDO | Программирование | 1 | 23.03.2010 16:39 |
Нужно решить задачу массивы на с | Digkill | Программирование | 0 | 22.01.2010 17:54 |