Дан массив B, состоящий из 7 элементов (-7,1,8,-4,1,6,-5). Найти произведение отрицательных элементов массива.

Question

Информатика

Слава

15 сентября, 01:58

Дан массив B, состоящий из 7 элементов (-7,1,8,-4,1,6,-5). Найти произведение отрицательных элементов массива.

+1

Ответы (1)

Знаете ответ?

Фрол · Answer 1

Uses crt;

Var a:array [1 ... 7] of integer;

i, s:integer;

begin

for i:=1 to 7 do

readln (a[i]) ;

clrscr;

for i:=1 to 7 do begin

write (a[i]:4) ;

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

end;

writeln;

writeln (s) ;

end.