Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Iseult
0 / 0 / 1
Регистрация: 28.10.2011
Сообщений: 58
#1

Упорядочить по возрастанию кусок массива

08.12.2011, 20:00. Просмотров 358. Ответов 1
Метки нет (Все метки)

Ввести одномерный массив X(N).
Упорядочить в нем по возрастанию значений все элементы, стоящие после максимального
элемента. Выдать на печать исходный и преобразованный массив.

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
const nmass=100;
var x,c:array [1..nmass] of integer;
    n,i,j,k,maxI, max:integer;
    
BEGIN 
//ручной ввод массива
  writeln('введите N-количество элементов в массиве');
  readln(n); 
 writeLn('Вводим элементы массива х:');
 for i:=1 to 9 do
  begin
   write('x[',i,']=');
   readLn(x[i]);
  end;
  
max:=x[1];
 if x[i]>max then 
   begin
    max:=x[i];
    maxI:=i; { индекс максимального элемента }
   end;
   
 if i>maxI then c[i]:=x[i];
   
For i:=1 to n-1 do
 For j:=1 to n-i do
  If c[i]>c[j+1] then
   begin
    k:=c[j];
    c[j]:=c[j+1];
    c[j+1]:=k
   end;
 
writeLn;
 writeLn('массивA c после изменения:');
  for i:=1 to N do
   write(c[i]:5);
   
END.
Помогите доделать, что-то напутала, не желает работать.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 20:00
Ответы с готовыми решениями:

Каждые 10 элементов массива упорядочить по возрастанию
Дан массив A(50). Каждые 10 элементов массива упорядочить по возрастанию....

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

Упорядочить элементы массива с четными индексами по возрастанию
Упорядочить элементы массива с четными индексами по возрастанию, оставив...

Упорядочить элементы массива по возрастанию сумм их цифр
Дан одномерный массив. Упорядочить элементы массива по возрастанию сумм их...

Упорядочить нечётные по номеру элементы 2/4 массива по возрастанию обратных
Сортировка procedure Part_4(t, j: integer; R: vector); var i, n:...

1
nicklifs
4 / 3 / 4
Регистрация: 06.12.2011
Сообщений: 63
08.12.2011, 22:41 #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
37
38
39
40
41
42
43
44
const nmass=100;
var x:array [1..nmass] of integer;
    n,i,j,k,maxI, max:integer;
 
BEGIN
//ðó÷Г*îé ââîä Г¬Г*Г±Г±ГЁГўГ*
  writeln('ââåäèòå N-êîëè÷åñòâî ýëåìåГ*òîâ Гў Г¬Г*Г±Г±ГЁГўГҐ');
  readln(n);
 writeLn('Ââîäèì ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* Гµ:');
 for i:=1 to n do
  begin
   write('x[',i,']=');
   readLn(x[i]);
  end;
 
max:=x[1];
maxi:=1;
for i:=2 to n do
 if x[i]>max then
   begin
    max:=x[i];
    maxI:=i; { ГЁГ*äåêñ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*îãî ýëåìåГ*ГІГ* }
   end;
 
 writeLn('èñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to N do
   write(x[i]:5);
 
 
    for i:=maxi+1 to n-1 do begin
         for j:=i+1 to n do begin
           if x[i]>x[j] then begin
              k:=x[i]; x[i]:=x[j]; x[j]:=k;
           end;
         end;
     end;
 
writeLn;
writeln(max,'  ',maxi);
 writeLn('Г¬Г*Г±Г±ГЁГўA c ïîñëå èçìåГ*ГҐГ*ГЁГї:');
  for i:=1 to N do
   write(x[i]:5);
 
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 22:41

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

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

Первую четверть массива упорядочить по возрастанию, последнюю - по убыванию
Создайте одномерный массив, состоящий из n элементов. После этого первую...


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

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

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