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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 21:09   #1
anubiss
 
Аватар для anubiss
 
Регистрация: 29.12.2011
Сообщений: 9
Восклицание (delphi) работа с динамическим массивом

Дано решение по задаче в которой удаляются чётные значения в массиве.
Помогите переделать задачу, что-бы в массиве удалялись только максимальные и минимальные значения. Заранее спасибо)
Код HTML:
procedure TForm1.Button2Click(Sender: TObject);
 var i,j,m:integer;
     A:array of integer;
begin
 try
   Label3.Caption:='...';
   SetLength(A,N);
   for i := 0 to N-1 do
     A[i]:=StrToInt(StringGrid1.Cells[1,i]);
  m:=0;
  i:=0; 
  repeat
     if A[i] mod 2 = 0 then begin
       m:=m+1;
       for j:=i to High(A)-1 do
          A[j]:=A[j+1];
          SetLength(A,N-m);
     end else i:=i+1;
  until i>High(A);
  StringGrid1.RowCount:=N-m;
     for i := 0 to N-m-1 do
     StringGrid1.Cells[1,i]:=IntToStr(A[i]);
     A:=nil;
  Label3.Caption:=IntToStr(m);
 except
   showmessage('Некорректные данные!');
 end;

end;

Последний раз редактировалось anubiss; 21.05.2012 в 21:16.
anubiss вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Управление динамическим массивом abr_question Общие вопросы C/C++ 12 18.12.2009 22:01
Работа с динамическим массивом sand Общие вопросы C/C++ 3 22.08.2008 12:48
Проблема с динамическим массивом dee_lv Помощь студентам 7 09.06.2008 16:58
Работа с динамическим массивом и его елементами Padovan Паскаль, Turbo Pascal, PascalABC.NET 2 21.05.2008 20:55
проблема с динамическим массивом kommunist Помощь студентам 6 11.11.2007 21:18