Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
hardiking
0 / 0 / 0
Регистрация: 07.10.2015
Сообщений: 29
1

Упорядочить часть массива

09.11.2015, 22:24. Просмотров 821. Ответов 1
Метки нет (Все метки)

Помогите решить задачу:
Дан массив x вещественных чисел. Получить упорядоченный по не возрастанию массив, состоящий из чисел данного массива, находящихся между предпоследним и последним отрицательным членом. Указание:проверить массив на наличие элементов между ними.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2015, 22:24
Ответы с готовыми решениями:

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

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

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

Упорядочить эл-ты массива
Дан массив натуральных чисел. Упоряд. его эл. методом обмена с массивом...

Упорядочить элементы массива
Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
09.11.2015, 23:40 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
const n=10;
type mas=array of real;
var a,b:mas;
    i,j,k,j1,j2:integer;
    tmp:real;
begin
 randomize;
 setlength(a,n);
 for i:=low(a) to high(a)do
  begin
   a[i]:=random*(-10+random(31));
   write(a[i]:7:2);
  end;
 writeln; 
 i:=high(a);
 k:=0;
 while (i>=low(a))and(k<2) do
  begin
   if a[i]<0 
    then
      begin
       if k=0 then j2:=i
              else j1:=i;
       inc(k)
      end; 
   dec(i)
  end;
 if k<2 then writeln('нет двух отрицательных')
        else
         begin
          if j2-j1=1
           then writeln('предпоследний и последний отрицательные рядом')
           else
            begin
             inc(j1);
             setlength(b,j2-j1);
             writeln('массив между предпоследним и последним отрицательными, упорядоченный по не возрастанию:');
             for i:=low(b) to high(b) do begin b[i]:=a[j1];inc(j1) end;
             if high(b)>=0
              then 
               begin
                for i:=low(b) to high(b)-1 do
                 for j:=low(b) to high(b)-i-1 do
                  if b[j]<b[j+1] then begin tmp:=b[j];b[j]:=b[j+1];b[j+1]:=tmp end;
                for i:=low(b) to high(b) do write(b[i]:7:2)
               end
            end 
         end    
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2015, 23:40

Упорядочить элементы массива по возрастанию
1) Упорядочить элементы массива Х по возрастанию. 2) Ввести с клавиатуры...

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

Упорядочить элементы массива по убыванию
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)...


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

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

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