0 дауыс
3.7k көрілді

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

A[A1,A2,..A9],

B[B1,B2,..B6],

C[C1,C2,..C5].

2 жауап

+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.
0 дауыс
int A[] = new int [9];
int q=0;
for(int i=0;i<A.length;i++)
{
          if(a[i]>0)
        q*=a[i];
}

 
...