Отсортировать массив по возрастанию

@cheka_0292 · Регистрация: 28.03.2010

Студворк — интернет-сервис помощи студентам

Решите эти задачи пожалуйста очень надо!!!!
1. Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива упорядочиваются по убыванию и содержимое отсортированного массива выводится на экран.

2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию , а 10 последних элементов по убыванию. Содержимое таким образом отсортированного массива выводится на экран.

3. Организуйте массив, содержащий 15 различных целых чисел. После этого первых 5 элементов, вторых 5 элементов и последних 5 элементов сортируются по возрастанию. Содержимое таким образом отсортированного массива выводится на экран.

4. Организуйте массив, содержащий 10 различных целых чисел. Одержимое массива сортируется по возрастанию, и после этого определяется минимальный и максимальный элементы массива.

5. Организуйте массив, содержащий 20 различных символов. Отсортируйте его по возрастанию.

6. Организуйте массив, содержащий 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию.

7. Организуйте массив, содержащий 20 целых чисел. Отсортируйте его по возрастанию. После этого определите и выведите на экран сумму элементов с четными индексами и сумму элементов с нечетными индексами.

8. Создайте массив, содержащий 15 целых чисел. Отдельно первых 5 элементов массива вторых 5 элементов и последних 5 элементов отсортируйте по убыванию. Определите и выведите на экран сумму каждой пятерки отсортированного таким образом массива.

9. Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший» символы.

10. Создайте массив, содержащий 10 различных символов. Первую половину массива отсортируйте по возрастанию, а вторую по убыванию. Отсортированный массив выведите на экран.

11. Создайте массив А, содержащий 8 различных символов. Отсортируйте его по возрастанию. Организуйте и выведите на экран целочисленный массив В, заполнив его числами, полученными преобразованием символов массива А в целые числа.
12. Создайте целочисленный массив А, содержащий 10 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию. Организуйте и выведите на экран символьный массив В, заполнив его символами, полученными преобразованием чисел массива А в символы.

13. Создайте массив содержащий 20 различных целых чисел. Отсортируйте его по возрастанию. После этого замените все элементы массива на противоположные и выведите содержимое обработанного массива на экран.
14. Создайте массив содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в 3 раза, а нечетные в 2 раза. Содержимое таким образом отсортированного массива выводится на экран.

@Vladiator · 28.03.2010, 19:00

Сообщение от cheka_0292

1. Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива упорядочиваются по убыванию и содержимое отсортированного массива выводится на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.

Добавлено через 1 минуту

Сообщение от cheka_0292

2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию , а 10 последних элементов по убыванию. Содержимое таким образом отсортированного массива выводится на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=12 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.

Добавлено через 3 минуты

Сообщение от cheka_0292

3. Организуйте массив, содержащий 15 различных целых чисел. После этого первых 5 элементов, вторых 5 элементов и последних 5 элементов сортируются по возрастанию. Содержимое таким образом отсортированного массива выводится на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 15 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 5 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=7 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=6 then break;
  end;
 end;
 for i:=12 to 15 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 15 do write(a[i]:4);
 readln;
end.

Добавлено через 2 минуты

Сообщение от cheka_0292

4. Организуйте массив, содержащий 10 различных целых чисел. Одержимое массива сортируется по возрастанию, и после этого определяется минимальный и максимальный элементы массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
 a:array[1..20]of integer;
 i,s,j,mn,mx:integer;
begin
 randomize;
 for i:=1 to 10 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 mn:=a[1];
 mx:=a[10];
 readln;
end.

@Demon-red · 28.03.2010, 19:53

Сообщение от cheka_0292

13. Создайте массив содержащий 20 различных целых чисел. Отсортируйте его по возрастанию. После этого замените все элементы массива на противоположные и выведите содержимое обработанного массива на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
const n=20;
var a:array[1..20] of integer;
z,i,m,j,min,max:integer;
 begin
   clrscr;
   randomize;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
   end;
 begin
  for i:=1 to n do
   write(a[i]:4);
   writeln;
   writeln('_________________________________________________________________');
       end;
       begin
       for i:=2 to n do
       begin
   for j:=n Downto i do
   if a[j-1]>a[j] then
  begin
   m:=a[j-1];
  a[j-1]:=a[j];
  a[j]:=m;
    end;
   end;
  for i:=1 to n do
  begin
  write(' ',a[i]:3);
  end;
  end;
  for i:=1 to n do
  begin
  write(' ',-a[i]:3);
  end;
  readln;
 end.
 
[size="1"][color="grey"][I]Добавлено через 30 минут[/I][/color][/size]
{10) номер}
uses crt;
var
 a:array[1..10] of integer;
 i,t,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
 
for i:=2 to 5 do
begin
for j:=5 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t ;
if j=1 then break;
end;
end;
 
for i:=6 to 10 do
begin
for j:=10 downto i do
if a[j-1]<a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t ;
if j=6 then
break;
end;
end;
 
writeln;
for i:=1 to 10 do
begin
write(a[i]:4);
end;
readln;
end.

@cheka_0292 · 29.03.2010, 12:12 **[ТС]**

Ребятки спасибо!!!! не можете остальные решить, пожалуйста!!!!!!!

@Vladiator · 29.03.2010, 16:07

Сообщение от cheka_0292

14. Создайте массив содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в 3 раза, а нечетные в 2 раза. Содержимое таким образом отсортированного массива выводится на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=12 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 20 do begin
  if a[i] mod 2=0 then a[i]:=a[i]*3 else a[i]:=a[i]*2;
  write(a[i]:4);
 end;
 readln;
end.

@cheka_0292 · 29.03.2010, 21:23 **[ТС]**

6 ая задача не выходит почему то (((( помогите!!!!!

очень срочно нужна !!!

@Vladiator · 29.03.2010, 21:41

Сообщение от cheka_0292

6. Организуйте массив, содержащий 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
 a:array[1..20]of integer;
 i,s,j,w:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 i:=2;
 while i<21 do begin
  if a[i] mod 2=0 then begin
   j:=i;
   w:=i;
   while a[w] mod 2=0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2=0 do dec(w);
   end;
  end else begin
   j:=i;
   w:=i;
   while a[w] mod 2<>0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2<>0 do dec(w);
   end;
  end;
  inc(i);
 end;
 for i:=1 to 15 do write(a[i]:4);
 readln;
end.

??

@yanyk1n · 29.03.2010, 21:43

cheka_0292, в следующий раз будете наказаны за столь большое кол-во заданий. Либо фриланс, либо по одной задаче в одной теме.

@Cancion2able · 02.01.2013, 12:33

Нашел тему поиском. Может кто-нибудь помочь с 7ой задачей у ТС, пожалуйста?

@Paster Fob · 02.01.2013, 16:02

Сообщение от Cancion2able

Нашел тему поиском. Может кто-нибудь помочь с 7ой задачей у ТС, пожалуйста?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const
  csize=20;
 
type
  tarray=array [1..csize] of integer;
 
procedure selectionsort(var arg:tarray);
var
  i,j,t:integer;
begin
  for i:=1 to csize-1 do
    for j:=csize downto i+1 do
      if arg[i]>arg[j] then begin
        t:=arg[i];
        arg[i]:=arg[j];
        arg[j]:=t;
      end;
end;
 
var
  uneven,even,i:integer;
  ar:tarray;
 
begin
  randomize;
  writeln('исходный массив : ');
  for i:=1 to csize do begin
    ar[i]:=random(100)-50;
    write(ar[i],' ');
  end;
  writeln;
  selectionsort(ar);
  uneven:=0;even:=0;
  writeln('отсортированный массив');
  for i:=1 to csize do begin
    write(ar[i],' ');
    if odd(i) then
      uneven:=ar[i]
    else
      even:=ar[i];
  end;
  writeln;
  write('сумма элементов с нечётными индексами : ');
  writeln(even);
  write('сумма элементов с чётными индексами : ');
  writeln(uneven);
  readln
end.

@slimit · 28.05.2013, 12:41

как-то 6-я не работает...

@MaluSh BiLLy · 13.06.2013, 22:05

Помогите пожалуйста с 8ой задачей .

@Soniyagfto · 13.06.2013, 22:38

Отдельно первых 5 элементов массива вторых 5 элементов и последних 5 элементов отсортируйте по убыванию.

Мне кажется, или 5+5+5=15?
Какой смысл от этого задания?

@КонецСвета · 14.06.2013, 07:06

Сообщение от Soniyagfto

Мне кажется, или 5+5+5=15?
Какой смысл от этого задания?

задание на умение организовать сортировку / перестановку в отдельной части массива
(на отработку работы с индексами, как я понимаю)
2 4 7 1 9 3 13 15 5 11 6 10 12 8 14
9 7 4 2 1 15 13 11 5 3 14 12 10 8 6, а не
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
суть в том, что обработать выделенные разными цветами блоки надо по отдельности

@Soniyagfto · 14.06.2013, 07:54

Сообщение от КонецСвета

задание на умение организовать сортировку / перестановку в отдельной части массива
(на отработку работы с индексами, как я понимаю)
2 4 7 1 9 3 13 15 5 11 6 10 12 8 14
9 7 4 2 1 15 13 11 5 3 14 12 10 8 6, а не
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
суть в том, что обработать выделенные разными цветами блоки надо по отдельности

Pascal
1
2
3
For i:=1 to 5 do
For i:=6 to 10 do
For i:=11 to 15 do

Из за этого задача не грамма не стала сложнее

@MaluSh BiLLy · 14.06.2013, 13:07

Можно пожалуйста всю программу ?

@vedelka · 25.05.2018, 01:09

Привет.Может кто-нибудь помочь с 2ой задачей у C(c указателями), пожалуйста?

@bormant · 27.05.2018, 15:18

Сообщение от vedelka

Привет.Может кто-нибудь помочь с 2ой задачей у C(c указателями), пожалуйста?

А зачем там указатели?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=10;
var
  a: array [0..n-1] of Integer;
  i, j, t: Integer;
...
 
  t:=n div 2-1;
  repeat i:=t; t:=0;
    for j:=t to i-1 do
      if a[j+1]<a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; t:=j;
      end;
  until t=0;
 
  t:=n-1;
  repeat i:=t; t:=n div 2;
    for j:=t to i-1 do
      if a[j+1]>a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; t:=j;
      end;
  until t=n div 2;

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@cheka_0292 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 5

	Отсортировать массив по возрастанию 28.03.2010, 18:37. Показов 58796. Ответов 17 Метки нет (Все метки) Решите эти задачи пожалуйста очень надо!!!! 1. Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива упорядочиваются по убыванию и содержимое отсортированного массива выводится на экран. 2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию , а 10 последних элементов по убыванию. Содержимое таким образом отсортированного массива выводится на экран. 3. Организуйте массив, содержащий 15 различных целых чисел. После этого первых 5 элементов, вторых 5 элементов и последних 5 элементов сортируются по возрастанию. Содержимое таким образом отсортированного массива выводится на экран. 4. Организуйте массив, содержащий 10 различных целых чисел. Одержимое массива сортируется по возрастанию, и после этого определяется минимальный и максимальный элементы массива. 5. Организуйте массив, содержащий 20 различных символов. Отсортируйте его по возрастанию. 6. Организуйте массив, содержащий 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию. 7. Организуйте массив, содержащий 20 целых чисел. Отсортируйте его по возрастанию. После этого определите и выведите на экран сумму элементов с четными индексами и сумму элементов с нечетными индексами. 8. Создайте массив, содержащий 15 целых чисел. Отдельно первых 5 элементов массива вторых 5 элементов и последних 5 элементов отсортируйте по убыванию. Определите и выведите на экран сумму каждой пятерки отсортированного таким образом массива. 9. Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший» символы. 10. Создайте массив, содержащий 10 различных символов. Первую половину массива отсортируйте по возрастанию, а вторую по убыванию. Отсортированный массив выведите на экран. 11. Создайте массив А, содержащий 8 различных символов. Отсортируйте его по возрастанию. Организуйте и выведите на экран целочисленный массив В, заполнив его числами, полученными преобразованием символов массива А в целые числа. 12. Создайте целочисленный массив А, содержащий 10 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию. Организуйте и выведите на экран символьный массив В, заполнив его символами, полученными преобразованием чисел массива А в символы. 13. Создайте массив содержащий 20 различных целых чисел. Отсортируйте его по возрастанию. После этого замените все элементы массива на противоположные и выведите содержимое обработанного массива на экран. 14. Создайте массив содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в 3 раза, а нечетные в 2 раза. Содержимое таким образом отсортированного массива выводится на экран. 0

@cheka_0292 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 5
	29.03.2010, 12:12 [ТС]
	Ребятки спасибо!!!! не можете остальные решить, пожалуйста!!!!!!! 0

@cheka_0292 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 5
	29.03.2010, 21:23 [ТС]
	6 ая задача не выходит почему то (((( помогите!!!!! очень срочно нужна !!! 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	29.03.2010, 21:43
	cheka_0292, в следующий раз будете наказаны за столь большое кол-во заданий. Либо фриланс, либо по одной задаче в одной теме. 1

@Cancion2able 7 / 7 / 2 Регистрация: 08.12.2012 Сообщений: 108
	02.01.2013, 12:33
	Нашел тему поиском. Может кто-нибудь помочь с 7ой задачей у ТС, пожалуйста? 0

@slimit 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 5
	28.05.2013, 12:41
	как-то 6-я не работает... 0

@MaluSh BiLLy 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 25
	13.06.2013, 22:05
	Помогите пожалуйста с 8ой задачей . 0

@MaluSh BiLLy 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 25
	14.06.2013, 13:07
	Можно пожалуйста всю программу ? 0

@vedelka 0 / 0 / 0 Регистрация: 25.05.2018 Сообщений: 1
	25.05.2018, 01:09
	Привет.Может кто-нибудь помочь с 2ой задачей у C(c указателями), пожалуйста? 0

Отсортировать массив по возрастанию

Решение