12. Постройте как можно более полный граф для понятий п. 3.2.4.

var

 i, n, ch, k1, k2, k3: Integer; //Объявляем переменные

begin // Начало блока  

 Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел

 Writeln('Введите числа: ');

 for i := 1 to n do // Начинаем цикл for от 1 до N                                  

 begin //Начало цикла

   Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры

   {Inc - счетчик  

   т.е если условие истинно с

   мы в переменную k1 записываем +1}

   if ch = 0 Then Inc(k1);  

   if ch > 0 Then Inc(k2);

   if ch < 0 Then Inc(k3);

 end; //Конец цикла

 {Выводим информацию о количестве чисел которые соответствуют условию}

 Writeln('Число нулей: ', k1);  

 Writeln('Число положительных: ', k2);

 Writeln('Число отрицательных: ', k3);

end. // Конец

program z1;

const a: array [1..16] of integer = (0,15,12,-9,-8,58,45,36,-85,58,36,-45,2,3,25,-9);

var i, s, k: integer;

begin

s:=0;

write ('Массив: ');

for i:=1 to 16 do

begin

write (a[i],' ');

if a[i]>0 then s:=s+a[i];

if a[i]<0 then k:=k+1

end;

writeln;

writeln ('Сумма положительных элементов ',s);

write ('Количество отрицательных элементов ',k)

end.

program z2;

var a:array [1..10] of integer;

i,p,k:integer;

begin

k:=0;

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(7)-3;

write(a[i]:4);

if a[i] <> 0 then

begin

p:=p*a[i];

k:=k+1

end

end;

writeln;

if k<>0 then write ('Произведение элементов, которые не равняются 0, равно ',p)

else write ('Произведение элементов, которые не равняются 0, равно 0')

end.