Удомельский форум - ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;)

Удомельский форум (http://second.udomlya.ru/uf/index.php)

- Программирование (http://second.udomlya.ru/uf/forumdisplay.php?f=26)

- - ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;) (http://second.udomlya.ru/uf/showthread.php?t=7852)

ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;)

решите задачку пожалуйста :) а то экзамен никак не получить :)

Написать функцию целого типа,которая вычисляет порядковый номер минимального положительного элемента передаваемого одномерного вещественного массива длинной N элементов. N не больше 999

Код:

function min(a: array of real) : integer;

 var m,i : integer;

     p : real;

 begin

  m:=0;

  p:=a[0];

  for i:=1 to high(a) do

    if ((a[i]<p) AND (a[i]>0)) then

     begin

       m:=i;

       p:=a[i];

     end;

  min:=m;

 end;

а еще разик помогите плз :)

помогите плз и эту задачку решить :)

Написать процедуру,которая получает через параметры два двумерных вещественных массива размерами M и N элементов каждый и возвращает ЭТИ массивы переделанными следующим образом:
1) Каждый элемент первого массива равен сумме соответствующих элементов исходных массивов
2) Каждый элемент второго массива равен разности соответствующих элементов исходного второго массива
Тип у обоих массивов один (привести описание),M и N не больше 20

Мб тебе всю к.работу решить? %)

не,только задачки %))
это последняя задачка))) честно- честно :)

ребятки(( решите плз((( мне до завтра надо((((

Цитата:

Сообщение от Detka

ребятки(( решите плз((( мне до завтра надо((((

немного оффтопа: По этому поводу вспомнился мне анекдот: Электричка, в вагоне что-то начинает дребезжать, один из пассажиров, немного подвыпивший мужичёк проявляет гражданскую отвественность и подходит к кнопке вызова машиниста, соотвественно нажимает и говорит: - "вагон №*** железное дребезжание, повторяю, вагон №*** железное дребезжание", ну и ответ машиниста: - "Сейчас, б***, всё брошу и пойду к вам ремонтировать, повторяю, Сейчас, б***, всё брошу и пойду к вам ремонтировать."

Ну и теперь по теме: Вот все всё бросили и начали Вам задачку решать! Для справки: Сдесь обычно помогают советами, что-то не получается, подскажут как правильно сделать. Решать для вас, да ещё и за время, извиняйте, это за отдельную плату.
Задача у Вас в достаточной степени тривиальная, что именно неполучается сделать?

Ей уже не надо ;d

ЖВ)) надо надо,только я хз как все это делать :)