Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.

Program t1; var   i, j: integer;   mas: array [1..10] of integer; begin       randomize;       writeln ('сгенерированный масив: ');       for i : = 1 to 10 do       begin           mas[i] : = random (100) - 50;           write (mas[i]);       end;       begin       for j: =1 to 9 do           for i: =1 to 9-j do                 if m[i] < m[i+1] then                           swap(mas[i],mas[i+1])       end;       writeln ('отсортированный по убыванию массив: ');       for i : = 1 to 10 do write (mas[i]); end; end.

Var a: array[1..1000] of real; i,n,ko,kp: integer; begin write('введите количество элементов массива n= '); readln(n); for i: =1 to n   do read (a[i]); for i: =1 to n   do write(a[i],' '); ko: =0; kp: =0; for i: =1 to n do if a[i]> 0 then kp: =kp+1 else if a[i]< 0 then ko: =ko+1; if ko> kp then writeln ('отрицательных элементов больше чем положительных') else if ko< kp then writeln ('положительных  элементов больше чем отрицательных') else writeln ('количество положительных и отрицательных элементов равны'); end.

n = int(input('n? '))

l = [[0 for j in range(n)] for i in range(n)]

n = n*n

i = 0

j = 0

k = 1

while k < = n:

    l[i][j] = k

    if i < = j + 1 and i + j < n - 1:  

        j += 1

    elif i < j and i + j > = n-1:  

        i += 1

    elif i > = j and i + j > n-1:  

        j -= 1

    else:  

        i -= 1

    k += 1

 

 

for i in l:

    print(*i,sep='\t')