(Помогите решить задичи на экзамен по Информатике в Паскаль).... хоть несколько

Question

1..Дано 15 дійсних чисел в интервале (0 .. 10). Найти десятичный логарифм наименьшего числа. . 
2.Дано натуральное число n и последовательность действительных чисел а1, а2, ..an. Определить в этой последовательности количество соседства двух чисел разного знака. 
3.Создать массив с элементами ai,j = kcos (k +11) + sin (k + i + j)​​, где k-номер компьютера, i = 4, j = 4. Вычислить добуток отъемных элементов. 
4.-Создать массив с элементами acos (k + i), где k-номер компьютера, і = 12. Вычислить количество видьемних элементов и их произведение.

українською це так 
1.Дано 15 дійсних чисел в інтервалі (0.. 10). Знайти десятковий логарифм найменшого числа. . 
2. Дано натуральне число п та послідовність дійсних чисел а1, а2, ..an. Визначити в цій послідовності кількість сусідств двох чисел різного знаку. 
3.Утворити масив з елементами ai,j=kcos(k+11)+sin(k+i+j), де k- номер комп'ютера, і=4, j=4. Обчислити добуток від'емних елементів. 
4.Утворити масив з елементами acos(k+i), де k- номер комп'ютера, і=12. Обчислити кількість від'емних елементів та їхній добуток.

Ольга Архипова · Accepted Answer

Первая вообще элементарная ...создаешь одномерный массив на 15 элементов. заполняешь его вручную или случайными значениями с функцией Random - и пошел от первого элемента перебирать все, выискивая наименьший 
 
temp:=a[1] 
for n := 2 to 15 do 
 if a [n] < temp then temp := a[n] 
end; 
x:= ln(temp) 
 
Так как-то ( принцип такой - за точность языка не ручаюсь, но принцип этот )