Viết chương trình nhập vào một dãy số và một số nguyên x đếm xem có bào nhiêu chữ số trong dãy lớn hơn x và in các số đó ra màn hình rồi tính tích.
Viết chương trình nhập vào một dãy số và một số nguyên x đếm xem có bào nhiêu chữ số trong dãy lớn hơn x và in các số đó ra màn hình rồi tính tích.
program tinh_lonhon;
uses crt;
var A:array[1..1000] of integer;
n,i,d,x:integer;
tich:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘Nhap x: ‘); readln(x);
d:=0; tich:=1;
for i:=1 to n do
if A[i]>x then
begin
write(A[i],’ ‘);
d:=d+1;
tich:=tich*A[i];
end;
if d=0 then write(‘Khong co so nao lon hon ‘,x)
else
begin
writeln;
writeln(‘Co ‘,d,’ so lon hon ‘,x);
writeln(‘Tich cac so do la: ‘,tich);
end;
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n,x,d,t: integer;
begin
t:=1;
clrscr;
write (‘nhap n: ‘); readln (n);
write (‘nhap x: ‘); readln (x);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (A[i]);
if a[i]>x then d:=d+1;
end;
writeln (‘trong day co ‘,d,’ phan tu lon hon ‘,x);
write (‘cac phan tu lon hon ‘,x,’: ‘);
for i:=1 to n do if a[i]>x then begin write (a[i],’ ‘); t:=t*a[i]; end;
writeln (‘tich la: ‘,t);
readln;
end.