Технический форум - Помогите, пожалуйста, написать программу.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите, пожалуйста, написать программу.

Помогите, пожалуйста.

Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Цитата:

Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Код:

uses crt;

const n=20;

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

     i:integer;

    p:longint;

begin

randomize;

p:=1;

for i:=1 to n do begin

a[i]:=random(100)-60;

if a[i]<0 then p:=p*a[i];

writeln('a[',i,']=',a[i]);

end;

writeln;

writeln('as a result of calculations obtained product equal ',p);

readln;

end.

В следующий раз создавайте новую тему, иначе вам помощь могут и не оказать, да и описывать в чужих темах свои проблемы - некрасиво.