ПОЗИТИВНЫЕ ЧИСЛА, ПРОГРАММА Опции

[Kristina20]

помогите,пожалуйста!!!!!срочно надо программа до пяницы!!!!не успеваю все,тк многое не понимаю!!!!
№1
Написать массив с 10 положительными и негативными числами, которые выводят с помощью клавиатуры.
Упорядочить только положиттельные числа в порядке уменьшения!!!!!!!
№2
Написать массив с 25 элементами и заполнить случайными числами. Значение элементов находится в интервале от -20 до 20ю На экране показываются числа,у которых последняя цифра 0,1....9

ОЧЕНЬ ПРОШУ НАПИШИТЕ ПРОГРАММЫ!!!!!!!!!!!!! Я ТОНУ,СПАСАЙТЕ!!!!!!!!!!!!!!!

[volvo]

Задача №1:
Банальный "пузырек", с добавлением двух дополнительных условий (оба сравниваемых элемента > 0)

const
  n = 10;
type
  arrType = array[1 .. n] of integer;

Var
  arr: arrType;
  i, j, T: integer;

begin
  {
    ... ввод массива Arr с клавиатуры. Сама сделаешь ?
  }
  for i := 1 to n do
    for j := n downto i+1 do

      If ((arr[i] > 0) and (arr[j] > 0))
         and
         (arr[i] < arr[j]) then
      begin
        T := arr[i]; arr[i] := arr[j]; arr[j] := T
      end;

  for i := 1 to n do
    write(arr[i]:4);
  writeln;
end.

А вот тут:

Написать массив с 25 элементами и заполнить случайными числами. Значение элементов находится в интервале от -20 до 20. На экране показываются числа,у которых последняя цифра 0,1....9

Вообще-то у ЛЮБОГО числа последняя цифра 0 .. 9

Или тебе надо для каждой цифры по отдельности?