Не может формула №2, так как в ней заданы относительные ссылки и при копировании формулы в ячейку Е4 она будет выглядеть так:
=3*H6+I9, что не соответствует условию
#include <iostream>
using namespace std;
int main() {
int a[7], p = 1;
for( int i = 0; i < 7; i++ ) {
cin >> a[i];
if(a[i] > 0) p *= a[i];
}
}
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.