Организовать заполение целочисленного массива С случайным образом. Отсортировать элементы массива по убыванию.
Вывести массив до и после изменения.

а я разве их не

но

1)

program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka);

i: =1; repeat

val(stroka[i],k,x); mas[i]: =k; i: =i+1;

until i=length(stroka); x: =0; for i: =1 to length(stroka) do x: =x+mas[i]; if x=10 then writeln('true')else writeln('else'); end.

2 я не знаю как решать

3)

program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka); i: =1; while i< =length(stroka) do begin val(stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length(stroka) do x: =x+mas[i]; writeln(x); end.

  4)

program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka); i: =1; while i< =length(stroka) do begin val(stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length(stroka)-1 dofor k: =1 to length(stroka)-i do if mas[k]=mas[k+1] then x: =x+1; if x> 0 then writeln('true')else writeln('false'); end.