|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.04.2016, 12:16 | #1 |
Пользователь
Регистрация: 10.11.2015
Сообщений: 17
|
Одномерный массив
Даны натуральные числа n, a1......an где n<=3000. Отсортировать последовательность a1.....an в порядке возрастания, найти элементы ak последовательности, являющимся квадратами четных чисел, и определить их количество.
Помогите пожалуйста Сортировать надо методом пузырька Допишите пожалуйста var A:array[1..3000] of integer; N,i,k,tmp:integer; begin Repeat write('N='); readln(n); if (n<=0) or (n>3000) then writeln('Исходные данные неверны'); until(n>0) and (n<=3000); write('Исходный массив:'); For i:=1 to n do begin A[i]:= random(100); write(A[i]); if i<n then write(',') else write (','); end; For i:=2 to n do For j:=n downto i do If A[j]>A[j-1] then begin tmp:=A[j-1]; A[j-1]:=A[j]; A[j]:=tmp; end; writeln('Порядок возрастания'); for i:=1 to n do begin write(A[i]); if i<n then write (',') else write(','); end; End. Последний раз редактировалось Тырин Артем; 05.04.2016 в 15:05. Причина: Допишите пожалуйста |
05.04.2016, 14:23 | #2 |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
сортировку пузырьком можно взять тут
а сортировку в порядке возрастания слабо сделать? (в готовом коде поменять знак не сложно) Код:
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Последний раз редактировалось Dvoishnik; 05.04.2016 в 16:19. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программирование в VBA: двумерный массив M на N, нужно создать новый одномерный массив | TheAnnihilyator | Помощь студентам | 1 | 04.06.2014 09:16 |
Найти одномерный массив элементы которого равны минимальным значениям в строках исходной матрицы и одномерный массив элементы... | Richik123 | Microsoft Office Excel | 1 | 16.10.2013 15:45 |
Двумерный массив развернуть в одномерный массив по строкам[QBASIC] | TrueStyle777 | Помощь студентам | 3 | 29.05.2013 21:56 |
Дан одномерный массив, сформировать новый массив по заданному правилу {Delphi} | Nickolai47 | Помощь студентам | 5 | 16.12.2012 14:51 |
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. | Marishkaa | Помощь студентам | 2 | 12.01.2010 16:54 |