Pascal. Массивы.

[evg339]

помогите, пожалуйста, решить задачи. очень нужно!!!!
в массиве чисел А1,А2...Аn найти min по абсолютной величине число и его номер.

и вторая: в массиве чисел X1,X2...Xn найти последнее число большее заданного числа P/

[Naeel Maqsudov]

поиск минимума решали здесь тыщу раз.
в этом случае надо сравнивать не с A а с Abs(A)

по второй задаче: тоже неоднократно отвечал уже по поиску последнего чего-нибудь. Тут полно готовых решений.

[golvit]

Допоможіть будь ласка рішити задачу.
Створити динамічний масив.
Другий від"ємний елемент замінити від"ємним.
Дякую!

[dr.Jekill]

Допоможіть будь ласка рішити задачу.
Створити динамічний масив.
Другий від"ємний елемент замінити від"ємним.
Дякую!

Полный п...
Пиши на русском!

[dr.Jekill]

Для первой:

Код: Выделить всё

min:=abs(a[i]);
for i:=1 to n do
if min>abs(a[i]) then 
 begin
  min:=abs(a[i]);
  k:=i;
 end;

Для второй:

Код: Выделить всё

k:=p;
for i:=n downto 1 do if x[i]>k then 
 begin
  k:=x[i];
  break;
 end;
{k и будет этим самым числом}