составить блок схему алгоритма нахождения числа z

Сколько всего пар перчаток было в ящике?

Вот код, только здесь выводится с левого угла, а мне нужно с правого:
uses crt;
var a:array [1..25] of integer;
ar:array [1..25,1..25] of integer;
i,n,s,j,x:integer;b:real;
L:boolean;
begin
write('n=');
readln(n);
writeln('Заполните массив:');
For i:=1 to n do readln(a[i]);
For i:=1 to n do
For j:=i+1 to n do
If a[i]>a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
s:=1;
writeln('Отсортированный массив: ');
For i:=1 to n do write(a[i], ' ');
writeln; b:=sqrt(n);
n:=round(b);
writeln('Двумерный массив: ');
for j:=1 to n do begin
for i:=1 to n do begin
ar[i,j]:=s;
if (j mod 2 = 0) and (i<>n) then dec(s)
else inc(s);
end;
s:=s+n-1;
end;
for i:=n downto 1 do begin
for j:=1 to n do write(ar[i,j]);
writeln;
end;
end.
Помогите пожалуйста

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

Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.

2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.

элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.

2. Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.