. Дан массив содержащий 8 целых чисел.
Массив ввести с клавиатуры
вывести массив на экран в одну строку и найти произведение отрицательных элементов массива

Решение представлено во вложениях.

Язык: Pascal

var massive:array[1..8] of integer;

num, mult, i:integer;

begin

mult:=1;

for i:=1 to 8 do

begin

readln(num);

massive[i] := num;

end;

writeln(massive);

for i:=1 to 8 do

if massive[i] < 0 then

mult := mult * massive[i];

write('Multiplication = ', mult);

end.

мой ответ? Отмечай его лучшим)