Const n=6; var a:array[1..n] of integer; i,p:integer; begin writeln('Введите 6 элементов массива:'); for i:=1 to n do read(a[i]); p:=1; for i:=1 to n do if a[i]<0 then p:=p*a[i]; writeln('p = ',p); end.
Пример: Введите 6 элементов массива: 5 -8 3 -4 7 -1 p = -32
2 votes Thanks 1
uliabogdan797
Большое спасибо! А можете, пожалуйста, написать еще три программы: https://znanija.com/task/21899336? 85 баллов
Answers & Comments
Verified answer
Const n=6;var a:array[1..n] of integer;
i,p:integer;
begin
writeln('Введите 6 элементов массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
writeln('p = ',p);
end.
Пример:
Введите 6 элементов массива:
5 -8 3 -4 7 -1
p = -32