0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 38
1

массивы

29.10.2011, 13:39. Показов 352. Ответов 0
Метки нет (Все метки)

дана последовательность целых чисел, количество (до 20). Найти минимальное количество чисел, после удаления которых из последовательности оставшиеся числа образуют возрастающую последовательность.
Посоветуйте, с чего начать данное решение задачи.

Добавлено через 21 час 9 минут
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
program p1;
var
    a: array[1..20] of integer;
    i, j, n,k: integer;
 
begin
    randomize;
    for i := 1 to 20 do begin
        a[i] := random(50);
        write(a[i]:4);
    end;
 
    n:= 20;
    i := 1;
    while i <= n do
        if a[i] > a[i+1] then begin
            for j := i+1 to n - 1 do
                a[j] := a[j+1];
            n:= n - 1;
            inc(k);
        end
        else
            i := i + 1;
            writeln;
 
    for i:= 1 to n do
        write(a[i]:4);
        writeln('k=',k);
 
readln
end.
Добавлено через 1 минуту
эта программа только выводит возрастающие последовательности и количество удаленных элементов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2011, 13:39
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Файлы. Компоненты - массивы чисел. Переформировать файл, где сначала идут массивы с положительными макс. элементами
Здравствуйте!! я пишу такую задачу: нужно написать две программы, одна из них создает файл, где...

Упорядочить массивы по по убыванию, потом соединить массивы в один упорядоченный массив
Начала писать, запуталась Даны два одномерных массива состоящие из 10 целых чисел. Упорядочить...

Даны массивы A(8), F(8),Q(8). Сформировать массивы С(8), каждый элемент которого вычисляется по формуле
uses crt; type mas=array of integer; var A,F,Q,C:mas; i,s:integer; begin clrscr; ...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2011, 13:39

Табулирование функции и поиск данных. Одномерные массивы. Двумерные массивы
Вычислить сумму первых четырех отрицательных элементов. В соответствии с п. 5.16 правил...

Массивы. Циклические алгоритмы (Заполнить массивы случайными числами, лежащими в интервале 0 до 100)
Доброго дня, уважаемые форумчане, помогите пожалуйста решить задание. Заполнить массивы случайными...

Указатели и массивы. Индексация с помощью указателей. Передача массивов в функции. Динамические массивы (обработка матриц)
Для каждого элемента , bij, i= 1,...,n , j=1,...,n определяется свой многоугольник...

Попадание точки. Массивы чисел. Массивы записей.
Всем привет. По языкам задали три контрольные на си. Я сам си не знаю, даже не представляю, поэтому...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru