Найти произведение отрицательных элементов массива из 10 случайных целых чисел от -20 до 20.

Var a: array [1..10] of integer; i: integer; mult: longint; begin       randomize;       mult : = 1;       for i : = 1 to 10 do           a[i] : = random(40) - 20; {заполнение случайным образом}       for i : = 1 to 10 do           write(a[i], ' '); {написание массива (для контрольной проверки)}       for i : = 1 to 10 do           if a[i] < 0 then             mult : = mult * a[i];       writeln(mult); end.

Var a: array[1..100] of integer; i,n,c,h: integer;   begin     writeln('введите кол-во элементов последовательности: ');     readln(n);     writeln('введите последовательность: ');     for i: =1 to n do       begin         read(a[i]);           if   a[i]< 0 then           begin             c: =c+a[i];             h: =h+1;           end;       end;     writeln(c/h);   end.

Ctrl+ - увеличивает масштаб страницы или изображения в ворде браузерах и т.д.  ctrl- -  уменьшает масштаб страницы или изображения в ворде браузерах    и т.д end -  перейти в конец страницы home-  перейти в начало страницы page up -  для перемещения на один экран вверх  page downd  -  для перемещения на один экран вниз ctrl+page up - в документах (переход вниз на 1-ну страницу); в браузере (перейти на один экран влево) ctrl+page down -  в документах (переход вверх на 1-ну страницу); в браузере (перейти на один экран вправо) ctrl+home -  сразу в начало текста ctrl+end -  сразу в конец текста