Задача на массивы.

@v1176986 · Регистрация: 09.05.2011

дан целочисленный одномеррный массив А из 10 элементов найти наименьшее число K элементов, которые нужно исключить из последовательности чтобы осталась возрастающая последовательность.

@Nehoroshev · 10.05.2011, 08:44

Делай перебор по всем элементам:

Delphi

for i:=1 to 9 do
  if x[i]>=x[i+1] then
    for j:=i to 9 do
      x[j]:=x[j+1];

@v1176986 · 10.05.2011, 15:01 **[ТС]**

плз выкладывайте саму программу я лол в делфи!!!
Заранее спасибо!

Добавлено через 1 час 13 минут
Помогите кто нибудь оч мало времени до сдачи(((
Заранее спасибО!

@Rolion · 11.05.2011, 16:38

Delphi

var
  A:array [1..10] of integer;
  i,j,k,t:integer;
begin
  k:=100;  //100 не играет никакой роли. Главное чтоб было больше 11
  For i:=1 to 10 do read(A[i]);
  For i:=1 to 10 do
    begin
      t:=0;
      For j:=i to 9 do if A[j]>=A[j+1] then inc(t);
      t:=t+i-1;
      if t<k then k:=t;
    end;
  writeln(k);
  readln;readln;
end.

@Rolion · 11.05.2011, 16:49

.....

@v1176986 · 11.05.2011, 17:52 **[ТС]**

Rollon что ты мне прислал ???? там один экзешник и то не в тему

Добавлено через 1 минуту
ребята решите эту гребаную задачу )))

@v1176986 0 / 0 / 0 Регистрация: 09.05.2011 Сообщений: 33
		1
	Задача на массивы. 10.05.2011, 01:15. Просмотров 584. Ответов 5 Метки нет (Все метки) дан целочисленный одномеррный массив А из 10 элементов найти наименьшее число K элементов, которые нужно исключить из последовательности чтобы осталась возрастающая последовательность. 0

@v1176986 0 / 0 / 0 Регистрация: 09.05.2011 Сообщений: 33
	10.05.2011, 15:01 [ТС]	3
	плз выкладывайте саму программу я лол в делфи!!! Заранее спасибо! Добавлено через 1 час 13 минут Помогите кто нибудь оч мало времени до сдачи((( Заранее спасибО! 0

@v1176986 0 / 0 / 0 Регистрация: 09.05.2011 Сообщений: 33
	11.05.2011, 17:52 [ТС]	6
	Rollon что ты мне прислал ???? там один экзешник и то не в тему Добавлено через 1 минуту ребята решите эту гребаную задачу ))) 0

Опции темы