Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Iseult
0 / 0 / 0
Регистрация: 28.10.2011
Сообщений: 58
#1

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

08.12.2011, 20:00. Просмотров 343. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 20:00
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Упорядочить по возрастанию кусок массива (Pascal ABC):

Каждые 10 элементов массива упорядочить по возрастанию - Pascal ABC
Дан массив A(50). Каждые 10 элементов массива упорядочить по возрастанию. Помогите пожалуйста, что-то не получается:cry:

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

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

Упорядочить по возрастанию три числа a, b и c, где а-минимальный элемент массива - Pascal ABC
Заданы три массива: x={x1, x2, x3, x4}, y={y1, y2, y3} и z={z1, z2, z3, z4, z5}. Упорядочить по возрастанию три числа a, b и c, где а -...

Изменить знак всех элементов массива X[1...12] на противоположный и упорядочить его по возрастанию. - Pascal ABC
Изменить знак всех элементов массива X на противоположный и упорядочить его по возрастанию.Вывести на экран три массива исходный,измененный...

Упорядочить первую половину одномерного массива по возрастанию элементов с четными индексами - Pascal ABC
Помогите пожалуйста с заданием: Дано одномерный массив. Упорядочить его первую половину по возрастанию элементов с парными индексами. Я не...

1
nicklifs
4 / 3 / 3
Регистрация: 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
Привет! Вот еще темы с ответами:

Упорядочить элементы массива по возрастанию и вычислить сумму первого и последнего элементов - Pascal ABC
Упорядочить элементы массива по возрастанию и вычислить сумму первого и последнего элементов. В Pascal

Упорядочить одномерный массив, заданный датчиком случайных чисел, по возрастанию (размерность массива произвол - Pascal ABC
Упорядочить одномерный массив, заданный датчиком случайных чисел, по возрастанию (размерность массива произвольна).

Сортировка массива. Упорядочить нечетные элементы массива по возрастанию методом обмена - Pascal
Упорядочить одномерный массив по возрастанию, методом обмена. (по возрастанию должны быть толбко нечётные элементы)

Упорядочить элементы массива по возрастанию - Pascal
Так, ребята)) всем привет) есть тут мини легкие задачи. Нужны решения... они легкие, очень, я понимаю... вот на Паскале нужно. Поможете...


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

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

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