Массивы и построение таблицы значений х,у по графику (Turbo Pascal)

[JIUMOH]

Turbo Pascal
Ребят, мне очень нужно сдать завтра индивидуальное задание. Вот эти 2 задачки решить никак не успею (т.к. не понимаю как их делать, а вникнуть до завтра не успею, в то, что пол года проходили)
Спасииииитееееее
1.Массив В заполнен случайным образом вещественными числами. Найти минимальное число в заданной последовательности.
2.Составить программу для построения таблицы значений х и у для функции y=(x+19)/(х-21)+4.3х при изменении x в диапазоне [1, 30] с шагом 0.95. В колонках должны быть n, x, у>0, у<0, где n - номер по порядку.

[IT-man]

Стучи в аську! Сделаю недорого!

[JIUMOH]

спасибо, добрый человек)
нуууу... подождем часик, может еще добрее человек найдется и бесплатно решит)))

[JIUMOH]

ты не мог бы сам мне написать, а то, у меня тебя не добавляет что-то...
моя ася 398293814...

[IT-man]

У меня тебя даже не находит

[JIUMOH]

така же ситуация
давай по мылу...
limon-iskl@mail.ru

[IT-man]

1)

var a:array[1..100] of real;
  i,n:integer;
  min:real;

begin
writeln('n=');
Readln(n);
min:=65000;
for i:=1 to n do
begin
a[i]:=random(20)-10+random(100)/100;
if a[i]<min then min:=a[i];
write(a[i]:6:2);end;
writeln;
Writeln('min=',min:6:2);
readln;
end.

2)

var
  n:integer;
  x:real;
function f(var a:real):real;
  begin
  f:=(a+19)/(a-21)+4.3*a;
  end;
begin
n:=1;
x:=1;
writeln('':2,'n','':6,'x','':6,'y');
Writeln('___|________|________|');
while x <= 30 do begin
writeln(n:3,'|',x:8:2,'|',f(x):8:2,'|');
x:=x+0.95;
n:=n+1;
end;
readln;
end.