|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2015, 17:41 | #1 |
Регистрация: 24.11.2015
Сообщений: 9
|
Используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива: Т= (-1,2,1,1,-4,0,2,5,3,-2,1)
Проверьте пожалуйста, все ли правильно у меня написано?
uses Crt ; var A : array [ 1 .. 100 ] of integer ; c : integer ; i , j , N : ShortInt ; begin ClrScr ; Write ( 'Количество элементов массива = ' ) ; ReadLn ( N ) ; WriteLn ( 'Ввод массива' ) ; for i := 1 to N do Read ( A [ i ] ) ; A[i]:=abs(A[i]); WriteLn ; //Сортировка пузырьком// for i := 1 to N - 1 do begin for j := N downto i + 1 do begin if A [ j ] < A [ j - 1 ] then begin c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ; end ; end; end; for i:=n-2 to n do writeln(A[i]); end . |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Используя классы, найти сумму всех элементов массива | Катерины | Помощь студентам | 3 | 28.09.2014 20:35 |
найти сумму наибольших значений элементов строк массива С++ | lialia | Помощь студентам | 1 | 17.11.2013 23:09 |
Найти сумму наибольших элементов каждого столбца матрицы и их координаты. | danteone | Помощь студентам | 2 | 21.05.2012 16:33 |
Паскаль. Найти сумму наибольших элементов в строках двумерного массива | Женька Good | Помощь студентам | 4 | 17.12.2011 19:52 |
Найти пять наибольших элементов одномерного массива целых чисел. | Serega-ru | Помощь студентам | 2 | 20.10.2010 10:10 |