VPF::поиск элемента массива - Форум программистов

casinosoftguru

Дата 3.5.2009, 02:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет

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

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

bems

Дата 3.5.2009, 04:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

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

--------------------

Обижено школьников: 8

AndreyZ53

Дата 14.5.2009, 21:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Код


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.

--------------------

https://itbases.ru/

bems

Дата 14.5.2009, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

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

--------------------

Обижено школьников: 8

Иванклк

Дата 22.5.2009, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.5.2009

Репутация: нет
Всего: нет

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

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

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

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

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

THandle

Дата 22.5.2009, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

!
THandle

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

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »