Имеется последовательность чисел a1, a2, ..., aN. Найти сумму первых из них, произведение которых не превышает заданного числа М. СИ++. #include #include #include

Pascal: {Имеется последовательность чисел a1, a2, ..., aN. Найти сумму первых из них (считая слева направо), произведение которых не превышает заданного числа М.} program lab6_2; const n=3; var a:array [1 ... n]of integer; i, sum, m, p:integer; b:real; begin cls; sum:=0; for i:=1 to n do begin writeln ('введите ', i,'-ый элемент массива'); read (a[i]); end; writeln ('Введите число M'); read (m); for i:=1 to n do p:=a[i]*a[i+1]; while p