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

[Kristina20]

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

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

[volvo]

А может, так:

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

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

begin

  for i := 1 to n do
    arr[i] := integer(random(41) - 20);

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

  writeln('result:');
  for i := 0 to 9 do begin
    write('#', i, ': ');
    for j := 1 to n do
      if (abs(arr[j]) mod 10) = i then write(arr[j]:4);
    writeln;
  end;
  writeln;
end.

?

[Kristina20]

Попробую!!!!!!!завтра к лектору подойду,выясню,что он имел в виду этим вопросом!!!!!НО ВСЁ РАВНО О Г Р О М Н О Е СПССИБО!!!!!!!