Берілген массивтің оң элементтерінің көбейтіндісін табу керек.

Question

Үш массив берілген.

A[A1,A2,..A9],

B[B1,B2,..B6],

C[C1,C2,..C5].

Answer 1

program n2;
uses crt;
var a:array[1..3,1..3] of integer;
    b:array[1..1000] of integer;
     i,j,S:integer;
begin
         clrscr;
         S:=1;
         for i:=1 to 3 do
         for j:=1 to 3 do
         read(a[i,j]);

         for i:=1 to 3 do
         for j:=1 to 3 do
         if a[i,j]>0 then      S:=S*a[i,j];
          writeln(s);

end.

Answer 2

int A[] = new int [9];
int q=0;
for(int i=0;i<A.length;i++)
{
          if(a[i]>0)
        q*=a[i];
}
 

Answer 3

int A[] = new int [9];
int q=0;
for(int i=0;i<A.length;i++)
{
          if(a[i]>0)
        q*=a[i];
}