Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2016, 19:29   #1
Владимир200000
Новичок
Джуниор
 
Регистрация: 22.04.2016
Сообщений: 1
Восклицание помогите ускорить программу пожалуйста

Код:
var t,n,k,z,sum,c:integer;
    i,j,g:integer;  
    a:array[1..1000000] of longint;
    sumarr:array[1..1000000]of longint;
Begin 

read(n,k);
for i:=1 to n do begin
  read(z);
  a[i]:=z;
  end;
for i:=1 to n-1 do begin
   for j:=i+1 to n do begin
      if a[j]>a[i] then begin
        c:=a[j];
        a[j]:=a[i];
        a[i]:=c;
        end;end;end;
for i:=1 to n-(k-1) do begin
  sum:=0;
  z:=i;
  for g:=1 to k-1 do begin
  inc(z);
    sum:=sum+(a[i]-a[z]);
    end;
sumarr[i]:=sum;
Inc(t);
    end;
    for i:=1 to t-1 do begin
   for j:=i+1 to t do begin
      if (sumarr[j]<sumarr[i]) then begin
        c:=sumarr[j];
        sumarr[j]:=sumarr[i];
        sumarr[i]:=c;
        end;end;end;
        write(sumarr[1]);
end.
______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

Последний раз редактировалось Alex11223; 22.04.2016 в 20:05.
Владимир200000 вне форума Ответить с цитированием
Старый 22.04.2016, 20:04   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Задача-то какая?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ускорить программу nikitosoleil Общие вопросы C/C++ 2 04.10.2015 15:20
Пожалуйста помогите исправить программу!!! J@GU@R Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 12.12.2009 22:59
Как ускорить программу ? juan666777 Общие вопросы Delphi 2 02.05.2009 19:48
Помогите пожалуйста написать программу gamer123 Помощь студентам 1 26.03.2009 18:24
Помогите пожалуйста ускорить работу по реконструкции моста Геодезистка Помощь студентам 10 07.10.2007 00:05