Cho dãy A có N phần tử a1, a2 …. aN được nhập từ bàn phím. Đưa ra (D) Có bao nhiêu của dãy lớn hơn 9. * ( giúp em với ạ huhu )
2 câu trả lời
uses crt;
var i,n,d:longint; a:array[1..250]of longint;
begin
clrscr;
write('Nhap N: ');readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']= ');readln(a[i]);
if a[i]>9 then d:=d+1;
end;
writeln(d);
readln
end.
Program baitap;
Uses crt;
Var A:array[1..200] of integer;
i,N,D:integer;
Begin
Clrscr;
D:=0;
Write('N='); Readln(N);
For i:=1 to N do
Begin
Write('A[',i,']=');
Readln(A[i]);
If A[i]>9 then D:=D+1;
End;
Writeln('Co ',D,' phan tu cua day lon hon 9');
Readln
End.
