Паскаль

[Artemuys]

Здравствуйте уважаемые форумчане!
Смысл таков.
К завтрашнему дню мне нужно отдать 2 лабараторных работ
Но я понимаю что я недостаточно знаю материал и помочь мне можете только вы
Если есть желание помочь можете написать в скайп Artemuys
Так же было бы неплохо если бы вы выложили текст сюда.
Итак пограммы
1)Смысл программы
Для совокупности чисел X(0.01; -27.3; 0; 125.27; -371.45; 0; 12; -5; -172.3; 0.05; -17.1; 49.5; -0.01) нужгл выполнить задание согласно варианту
Само задание
Нужно найти самое маленькое по модулю число массива и его номер
2)x:=x0;
repeat
writeln(x,' ',a+sqrt(sqrt(x))/sqrt(sin(b*x)));
x:=x+delta;
until x>x1;
end.
вот программа
задача
Составить программу для вычесления значений ф-ии y=f(x) где аргумент х меняеться от х0 к х1 с шагом Δх
Сама ф-ия http://s017.radikal.ru/i416/1202/8c/be063119f3e3.jpg
надеюсь на вашу помощь

[deathNC]

Если есть желание помочь можете написать в скайп Artemuys

Думаю, будет лучше, если обсуждение будет вестись на форуме!

[whatever]

Первая:

var
  m:array[1..13] of real=(0.01, -27.3, 0, 125.27, -371.45, 0, 12, -5, -172.3, 0.05, -17.1, 49.5, -0.01);
  i,k:integer;
begin
  k:=1;
  for i:=2 to 13 do
    if abs(m[i])<abs(m[k]) then k:=i;
  writeln('Минимальный по модулю элемент под номером ',k,': ',m[k]:3:2);
  readln
end.

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