Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
zetsubounoctis
0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 2
1

Отсортировать массивы, объединить и результирующий массив отсортировать

16.03.2014, 11:01. Просмотров 862. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста, нужно написать в паскале программу:

Даны массив А(16), В(10).Отсортировать их по убыванию, а затем объединить в массив С, который также отсортировать по убыванию
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2014, 11:01
Ответы с готовыми решениями:

Сформировать два списка, отсортировать их и объединить в один, не нарушая порядка
Сформировать два списка, отсортировать их и объединить в один, не нарушая...

Отсортировать массивы по возрастанию
напишите мне пожалуйста программу этой задачи и блок схему: Даны два массива А...

Отсортировать массивы с помощью функции
Задание 6. Отсортировать массивы с помощью функции.

Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по возростанию
5)Вычислить среднее арифметическое элементов, дописать в массив и отсортировать...

Массив символов. В процедуре отсортировать массив по алфавиту в обратном порядке
Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х=», где i –...

3
FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
16.03.2014, 13:34 2
Лучший ответ Сообщение было отмечено zetsubounoctis как решение

Решение

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
const a0=16; b0=10;
var a: array [1..a0] of integer;
    b: array [1..b0] of integer;
    c: array [1..a0+b0] of integer;
    i,j,z: integer;
 begin
  randomize;
  for i:= 1 to a0 do a[i]:= random(20);
  for i:= 1 to b0 do b[i]:= random(20);
 
  for i:= 1 to a0-1 do  for j:= i+1 to a0 do
  if a[i]<a[j] then begin
    z:=a[i];
    a[i]:=a[j];
    a[j]:=z;
   end;
 
  for i:= 1 to b0-1 do  for j:= i+1 to b0 do
  if b[i]<b[j] then begin
    z:=b[i];
    b[i]:=b[j];
    b[j]:=z;
   end;
 
  writeln('ÑîðòèðîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў ГЂ --> ');
  for i:= 1 to a0 do write(a[i],' ');
  writeln;
 
  writeln('ÑîðòèðîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў B --> ');
  for i:= 1 to b0 do write(b[i],' ');
  writeln;
 
  for i:= 1 to a0 do c[i]:=a[i];
  for i:= 1 to b0 do c[a0+i]:=b[i];
 
  for i:= 1 to a0+b0-1 do  for j:= i+1 to a0+b0 do
  if c[i]<c[j] then begin
    z:=c[i];
    c[i]:=c[j];
    c[j]:=z;
   end;
 
  writeln('ÑîðòèðîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў Г‘ --> ');
  for i:= 1 to a0+b0 do write(c[i],' ');
  writeln;
  readln;
 end.
1
zetsubounoctis
0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 2
16.03.2014, 16:12  [ТС] 3
Помогите пожалуйста составить блок схему к данной программе
0
FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
16.03.2014, 20:02 4
Тебе сюда.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2014, 20:02

Отсортировать массив
помогите. Линейный целочисленный массив размером N заполнен только нулями и...

Отсортировать массив
Отсортировать массив который содержит имена и фамилии студентов и их средний...

Отсортировать массив
Дан линейный массив из 10 чисел. Отсортировать массив по закону: первый...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru