1.в произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и положитльных элементов. 2. сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры обнулите значения всех элементов с нечетными индексами. выведите значения одномерного массива в строку через пробел.

Первая программа: program first; var mas: array[1..6] of integer; mass: array[1..3] of integer; a: integer; begin a: =1; while i< 7 randomize; random(a); if a< 11 and a> 6 then begin mas[i]: =a; a: =a+1; end; for i: =1 to 6 do begin if mas[i]< 0 then mass[1]: =mass[1]+1; if mas[i]=0 then mass[2]: =mass[2]+1; if mas[i]> 0 then mass[3]: =mass[3]+1; end; writeln('положительных елементов в масиве',mass[3]); writeln('елекантов равных нулю в масиве',mass[2]); writeln('отрицательных елементов в масиве',mass[1]); 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')

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.