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

[Liya Opium]

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

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

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

 

[AlexZir]

Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 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.

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