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

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

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

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

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

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

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

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

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

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

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. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)...

Упорядочить элементы массива по возрастанию
Дан массив a: array of 1.. maxint. Упорядочить элементы массива а по...

Упорядочить строки целочисленного массива
Помогите плиз завал с практиками Добавлено через 31 секунду Упорядочить...


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

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

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