Все Будет Офигенно!!!.
ДП
Денис Павлов
program PR3;
var
M:array[1..10] of integer;
I:bite;
S:integer;
P:longint;
begin
for i:=1 to 10 do begin
write('введите эл-т массива');
readln(M[I]);
end;
S:=0; P:=1;
for i:=1 to 10 do if M[I] >=0 then S:=S+M[I] else P:=P*M[I];
writeln('Сумма=',S);
writeln('Произведение=',P);
readln;
end.
Похожие вопросы