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 a6 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.