Решение представлено во вложениях.
Язык: Pascal
var massive:array[1..8] of integer;
num, mult, i:integer;
begin
mult:=1;
for i:=1 to 8 do
readln(num);
massive[i] := num;
end;
writeln(massive);
if massive[i] < 0 then
mult := mult * massive[i];
write('Multiplication = ', mult);
end.
мой ответ? Отмечай его лучшим)
Решение представлено во вложениях.
Язык: 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.
мой ответ? Отмечай его лучшим)