Массивы(одномерные)(Pascal)

[teliale]

Очень прошу помочь.В школе такие задачи задали,совсем не знаю как делать(

1)Задайте массив из 10 элементов с помощью датчика случайных чисел.Замените нулем элементы массива,которые больше введенного с клавиатуры числа N.Выведите на экран исходный и полученный массивы

2)Задайте массив из 10 элементов с помощью датчика случайных чисел.Замените все отрицательные элементы на наименьший положительный.Выведите на экран исходный и полученный массивы.

[Xardas]

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

randomize;
readln(N);
for I := 1 to 10 do
  begin
    num := random(50);
    if num > N then mas[i] := 0 else mas[i] := num;
    write(mas[i], ' ');
  end;

2. Остальное по аналогии с первой задачей.

min := mas[1];
for I := 2 to 10 do
  begin
     if (mas[i] > 0) and (mas[i] < min) then min := mas[i]; 
  end;
for I := 1 to 10 do
  begin
     if (mas[i] < 0) then mas[i] := min; 
  end;

[teliale]

аааа,спасибо огромное.Вы меня очень очень спасли)