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
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
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.
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!