Задачи Pascal ABC

[RikOzz]

Делаю курсовую, не могу решить эти задачи...помогите!!!


Задача 1. Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Создать (и вывести) новый массив, который состоит из положительных элементов массива У.


Задача 2. Создать генератором случайных чисел в интервале от -20 до 20, двумерный массив (4 х 4) с элементами aij . Вывести его на экран в виде таблицы (матрицы). Найти индексы минимального элемента массива. Вычислить произведение его отрицательных элементов.

Задача 3. Вычислить значение функции с использованием операторов if-else

[gaw4]

охотно, стучись
ася в подписи

[Stilet]

Что даже и попыток не было?

[RikOzz]

program zadacha9;
var x,y:array[1..8] of real;
k,m:integer;
begin
m:=0;
writeln('Y:');
for k:=1 to 8 do begin
y[k]:=ln(k)-3*k;
if (y[k]>0) then begin
m:=m+1;
x[m]:=y[k];
end;
writeln(y[k]:7:2);
end;
writeln('Новый массив:');
if (y[k]>0) then
for k:=1 to m do
writeln(x[m]:7:2)
else
writeln('Положительных значений Y не найдено. Вывод нового массива не возможен')
end.


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

[Poma][a]

if (y[k]>0) then
for k:=1 to m do
writeln(x[m]:7:2)
else 
writeln('Положительных значений Y не найдено. Вывод нового массива не возможен')
end.

Наверное, как-то так :

if (m>0) then
for k:=1 to m do
writeln(x[m]:7:2)
else 
writeln('Положительных значений Y не найдено. Вывод нового массива не возможен')
end.