Одномерный массив., поиск максимального элемента Опции

[Allise1]

Возможно потому что в тот момент, когда я читал, у меня слово "обратные" ассоциировалось не с 1/x, а с -x.Но от этого кординально ничег оне меняется.

for j:=1 to N-1 do
     for i:=p to N-j do
        if (a[i]>0 and (abs(1/a[i])<abs(1/a[i+1])) then
              swap(a[i],a[i+1]);

Как бы я сразу сказал, что само условие нечетко понял, поэтому, если что, поправьте.

не могли бы вы объяснить, для чего мы вводим? procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;

[Krjuger]

Swap меняет местами для числа, девушка, ну хоть такие глупые вопросы не задавайте, ведь из самой процедуры все видно. Я не верю, что подобные вещи нельзя понять самому, нужно только подумать головой немного.

[Гость]

Swap меняет местами для числа, девушка, ну хоть такие глупые вопросы не задавайте, ведь из самой процедуры все видно. Я не верю, что подобные вещи нельзя понять самому, нужно только подумать головой немного.

а как будет выглядеть блок схема не подскажете?

[Krjuger]

Не подскажу, на форуме не доступны средства,чтобы ее нарисовать. Сделайте хоть что-нибудь сами.

Сообщение отредактировано: Krjuger - 24.11.2012 16:27