Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > поиск элемента массива

Автор: casinosoftguru 3.5.2009, 02:54

голова не варит.. есть массив из 37 чисел в нем и отрицательные и положительные значения
надо найти индекс элемента наиболее близкого по значению к нулю
числа целые

из идей тока одна - собрать из одного два массива один отрицательных другой положительных чисел в
отрицательном найти самый большой элемент в положительном самый маленький потом их как то сравнить
но что-то никак не вырисовывается такая функция.. помогите кодом!! smile

Автор: bems 3.5.2009, 04:21

ищи так же как минимальный, но сравнивай не числа, а их модули (abs)

Автор: AndreyZ53 14.5.2009, 21:20

Код


program test;
var
a:array[1..100] of integer;
i,n,min,min_index:integer;
begin
 writeln('Vvedite razmer massiva');
 readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
  min:=a[1];
  min_index:=1;
  for i:=1 to n do
   begin
    if (abs(a[i])<min) and (a[i]<>0) then
     min_index:=i;
   end;
   writeln('Min=',min_index);
   readln;
end.

Автор: bems 14.5.2009, 22:33

AndreyZ53, там ошибка - min не присвивается в цикле

Автор: Иванклк 22.5.2009, 00:24

Срочно, люди плиз, помогите написать проги !!!

1)Беруться N(N>1) Костяшек из одного набора домино. Образовать, если это возможно все возможные цепи, костяшки стыкуються частями с равным количеством точек.

2)Найти номера последних L отрицательных элементов в файле F={F[i]}

требования к проге:
N<=50 . Исходные данные задать самостоятельно. Процедура ввода/вывода элементов файла F и его отработка. Тип результата определяется из контекста. Результат нужно дописать в конец файла!

3)создать программу, позволяющую дописывать в файл информацию о новых книгах: фамилию автора, название книги и год её издания. Записи должны быть упорядочены по году издания!!!

Автор: THandle 22.5.2009, 00:28

!
THandle

Модератор: Пожалуйста, один топик - один вопрос.

Создайте в центре помощи правильно оформленные темы на каждый вопрос.

Эту тему закрываю.