uses crt;
var a:array[1..100]of word;
i,n,t,kt:word;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
write('t='); readln(t);
kt:=0;
for i:=1 to n do
if t=a[i] then
begin
kt:=1;
write(i:4);
end;
if kt=0 then writeln('khong co ',t,' trong day A');
readln;
end.
Nhập vào 1 mảng có N số nguyên ( N< 1000 )
1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập
2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .
Viết chương trình nhập từ bàn phím số nguyên dương N
Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N (ghi một cách rõ ràng nha )
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
Giúp mình với :
Nhập dãy n phần tử, tìm dãy con tăng ngặt có độ dài lớn nhất.in ra màn hình độ dài, vị trí đầu và vị trí cuối
Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
1. Viết chương trình nhập vào 2 số nguyên dương a,b (a<b). Tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a --> b
2. Viết chương trình nhập vào số nguyên dương n (n được nhập tùy ý) xuất ra màn hình các số nguyên lẻ từ 5 --> n (n>=5)
3. Viết chương trình nhập vào 2 số nguyên dương m,n (m<n). Tính và đưa ra màn hình tích của các số nguyên chẵn trong phạm vi từ m --> n
4. Viết chương trình nhập vào 2 số nguyên dương x,y (x<y). Xuất ra màn hình dãy số nguyên dương từ x --> y và y --> x
Nhập vào 100 số nguyên dương từ bàn phím in ra màn hình các số vừa nhập và đếm số lượng các số chẵn
giúp em với ạ!!!!
Câu 1. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình tổng số nguyên chẵn, tổng số nguyên lẻ của dãy số. Với N được nhập từ bàn phím.
Câu 2: Cho dãy A gồm N số nguyên. Viết chương trình in ra màn hình các số nguyên âm có trong dãy? với n được nhập từ bàn phím.
Câu 3. Viết chương trình tính tổng các phần tử chia hết cho 3 trong mảng A gồm n phần tử từ A1, A2 .... An? với n được nhập từ bàn phím.
Câu 4. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình số nhỏ nhất của dãy số và vị trí số nhỏ nhất vừa tìm được. Với N được nhập từ bàn phím.
Câu 5. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình dãy số nguyên được sắp xếp theo thứ tự giảm dần. Với N được nhập từ bàn phím
Cho xâu S bất kì chứa các kí số và chữ cái tiếng Anh. Viết chương trình:
a. Đưa ra màn hình tất cả các chữ cái có trong S.
b. Đưa ra màn hình dãy số con tăng liên tiếp dài nhất có trong xâu S.
Ví dụ: S='ab3v5e72f4a7g91b2: có 3 dãy con tăng là (3,5,7); (2,4,7,9);(1,2). Dãy con tăng dài nhất là (2,4,7,9).
Mọi người giúp em với em cần gấp .Em cảm ơn ạ!
