Язык программирования: Паскаль. Написать программу. Заполнить массив из 10 элементов случайными числами в интервале
10-11 класс
|
[0..100] и отсортировать первую половину по возрастанию, а вторую – по убыванию.
var a:array[1..10]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do a[i]:=random(101);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 5 do
for j:=1 to 4 do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
for i:=1 to 5 do
for j:=7 to 10 do
if a[j]>a[j-1] then begin
k:=a[j];
a[j]:=a[j-1];
a[j-1]:=k;
end;
for i:=1 to 10 do write(a[i],' ');
end.
Другие вопросы из категории
А) к строке "Край озёр" добавляет строку "лесов и рек"
Б)в строке "я учусь в школе" заменяет "в школе" на "в 10-ом классе"
1)Барка,джонка,рикша,пакетбот,ял.
2) Бунгало, иглу,офис,хижина,шале.
действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите соответствует номеру строки, к ней слева дважды подряд приписываетя предыдущая строка.
вот первые 4 строки, созданные по этому правилу:
1)A
2)AAB
3)AABAABC
4)AABAABCAABAABCD
...
Латинский алфавит для справки:ABCDEFGH....
Запишите шесть символов подряд, стоящие в седьмой строке со 116го по 121е место(считая слева направо)
Подскажите алгоритм решения таких задач.
Читайте также
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8