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.

hoanghan09888

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

tranduyanhtq2016

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.

Vote (0) Phản hồi (0) 2 năm trước

nthlinh

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Đề ktra cuối kì của e nên mn giúp e vs đc ko ạ😊

Giải chi tiết cho mình câu này với ạ.

Ai giúp mình với mình năng nỉ đó

Cảm nhận gì về Cô Tô sau trận bão Cảm nhận gì về cảnh mặt trời mọc ở Cô Tô Cảm nhận gì về cuộc sông của người dân trên đảo Cô Tô

mg giúp em với ạ ! em cần gấp ạ :((

Giúp mình 2 câu đạo hàm này với ạ giúp mình với

talk about the advantages of using electronic devices as a learning tools làm cho mik ik

cho tam giác abc nhọn và cân tại a đường cao ah (h thuộc bc) a ) hai tam giác ahb và ahc có bằng nhau không vì sao b) tia ah có phải là tia phân giác của góc bac không vì sao c ) kẻ tia phân giác bk ( k thuộc ac ) của góc abc.gọi o là giao điểm của ah và bk. chứng minh rằng co là tia phân giác của góc acb

Giúp em Đi ạ Cảm ơn Mọi người Rất rất rất rất nhiều ạ

Giúp mình với ạ mình cần gấp lắm

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến