1. В произвольно заданном одномерном массиве (случайные значения из отрезка -6 до…

Первая программа: program first; var mas: array[1… 6] of integer; mass: array[1… 3] of integer; a: integer; begina: =1; while i<7randomize; random (a); if a<11 and a>6 then beginmas[i]: =a; a: =a+1; end; for i: =1 to 6 do beginif 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.