a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tích các phần tử có giá trị lớn hơn 9 b) viết chương trình nhập vào m

a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tích các phần tử có giá trị lớn hơn 9
b) viết chương trình nhập vào mảng số nguyên gồm 7 phần tử sau đó in ra màn hình các phần tử có giá trị lớn hơn 9

0 bình luận về “a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tích các phần tử có giá trị lớn hơn 9 b) viết chương trình nhập vào m”

  1. a,

    Var A : array [1..100] of integer ;

           n,i :byte  ;

            T : int64 ;

    Begin

      Write(‘n = ‘);Readln(n); T := 1 ;

      For i :=1 to n do 

        Begin 

            Write(‘A[‘,i,’]= ‘);

             Readln(A[i]);

            If A[i] > 9 then T := T*A[i] ;

         End;

       Writeln(‘T = ‘.T);

      Readln

    End.

    b,

    Var A : array [1..7] of integer ;

           n,i :byte  ;

    Begin

      Write(‘n = ‘);Readln(n); 

       Write(‘cac so lon hon chinh la ‘);

      For i :=1 to n do 

        Begin 

            Write(‘A[‘,i,’]= ‘);

             Readln(A[i]);

            If A[i] > 9 then Write(A[i],’  ‘);

         End;

      Readln

    End.

    Bình luận
  2. A)

    Uses crt;

    Var i,tich: integer ;

    a:array[1..100]of integer;

    Begin

    Clrscr;

    Write(‘nhap n: ‘); readln(n);

    For i:=1 to n do

     Begin

      Write(‘a[‘,i,’]=’);readln(a[i]);

     End;

    For i:=1 to n do if a[i]>9 then tich:= tich *i;

    Writeln(‘Tich cua cac so lon hon 9 la:’,tich);

    Readln;

    End.

    B)

    Uses crt;

    Var i: integer ;

    a:array[1..100]of integer;

    Begin

    Clrscr;

    For i:=1 to 7 do

     Begin

      Write(‘a[‘,i,’]=’);readln(a[i]);

     End;

    Writeln(‘cac so lon hon 9 la: ‘);

    For i:=1 to n do if a[i]>9 then write(a[i]:3);

    Readln;

    End.

    Hết!

    CÁC BN NHỚ VOIT 5* NHA, THANKS!

    Bình luận

Viết một bình luận