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

одномерый массив

07.11.2011, 17:34. Просмотров 313. Ответов 0
Метки нет (Все метки)

Добрый день, не поможете решить задачку?
дана последовательность чисел, найти минимальное количество чисел, после удаления которых из последовательности оставшиеся числа образуют возрастающую последовательность.

Изменил код программы:
Для некоторых последовательностей работает правильно, не могли бы вы посмотреть в чем ошибка?

Добавлено через 23 часа 58 минут
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
Program pr;
var a:array[1..30] of integer;
 i,j,m,n,kmin,k,z,,nom,elem,l:integer;
begin
writeln('vvedite n');
readln(n);
writeln('elementy massiva');
for i:=1 to n do
readln(a[i]);
kmin:=maxint;{мин количество элементов};
for i:= 1 to n do
  begin
  m:=n;
  z:=a[i];
               for l:=i to n do
               begin
               if (z>a[l+1])  then
                             begin
                             nom:=l;
                             elem:=a[l]; {запоминаем номер элемента и сам элемент}
                             {удаляем}
                              for j := l to m - 1 do
                              a[j] := a[j+1];
                              m := m - 1;
                              inc(k);{считаем количество удаленных элементов}
                              m:=m+1;
                             for j:=m+1 downto nom+1 do
                             a[j]:=a[j-1]; {вставляем элемент обратно в массив}    
                             a[nom]:=elem;
                            z:=a[l+1];{переходим к следующему элементу}
                             end
                            else  z:=a[l+1];
                end;
     if k<kmin then kmin:=k;
     end;
writeln(' ','kmin=',kmin);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.11.2011, 17:34
Ответы с готовыми решениями:

Одномерый массив. Перенести в начало массива минимальный элемент
Дан массив целых чисел а1,…, аn. Перенести в начало массива минимальный элемент с выводом исходного...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Массив. Разделить на два: массив элементов с четными и массив с нечетными индексами
VII.Одномерные массивы 50. Задан массив с количеством элементов N. Сформировать два массива: в...

Дан массив С (N). Нечетные элементы поместить в массив A, а четные в массив В
Ребят помогите решить задачу на паскале и на бейсике. Дан массив С (N). Нечетные элементы...

Разделить массив на массив четных положительных и массив остальных
дана последовательность из 20 эл. надо её отсортировать на 2 массива. условия видны в задании...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2011, 17:34

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать цифры и записать в...

Одномерый массив
Не могу понять что нужно сделать.помогите с кодом,пожалуйста Есть одномерный массив.Получить из...


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

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

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