Страница 1 из 1
Pascal. Массивы.
Добавлено: 14 дек 2008, 11:02
evg339
помогите, пожалуйста, решить задачи. очень нужно!!!!
в массиве чисел А1,А2...Аn найти min по абсолютной величине число и его номер.
и вторая: в массиве чисел X1,X2...Xn найти последнее число большее заданного числа P/
Re: Pascal. Массивы.
Добавлено: 14 дек 2008, 12:41
Naeel Maqsudov
поиск минимума решали здесь тыщу раз.
в этом случае надо сравнивать не с A а с Abs(A)
по второй задаче: тоже неоднократно отвечал уже по поиску последнего чего-нибудь. Тут полно готовых решений.
Re: Pascal. Массивы.
Добавлено: 16 мар 2009, 20:32
golvit
Допоможіть будь ласка рішити задачу.
Створити динамічний масив.
Другий від"ємний елемент замінити від"ємним.
Дякую!
Re: Pascal. Массивы.
Добавлено: 16 мар 2009, 23:13
dr.Jekill
golvit писал(а):Допоможіть будь ласка рішити задачу.
Створити динамічний масив.
Другий від"ємний елемент замінити від"ємним.
Дякую!
Полный п...
Пиши на русском!
Re: Pascal. Массивы.
Добавлено: 16 мар 2009, 23:20
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 и будет этим самым числом}