uses crt;
Var i,n,dem:integer;
a: array[1..1000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
for i:= 1 to n do
Begin
write('So thu ',i,' = ');
readln(a[i]);
if a[i] mod 2 = 0 then inc(dem);
end;
Writeln('Day so co ',dem,' so chan');
readln;
End.
1.Viết chương trình đọc vào từ bàn phím 1 số nguyên n rồi đưa ra số ngày của tháng đó
2.Nhập vào 1 mảng gồm n số nguyên
Đếm trong dãy có bao nhiêu số chẵn âm
Viết chương trình nhập vào 1 dãy điểm x1y1, x2y2...xn,yn. In các điểm vừa nhập ra màn hình, tính tổng độ dài gấp khúc lần lượt đi qua các điểm thứ 1, 2,..n. Đếm số điểm thuộc góc phần tư thứ 2. Tìm khoảng các xa gốc tọa độ (trục hoành, trục tung) nhất.
viết chương trinh nhập vào một mảng 1 chiều n số nguyên đếm có bao nhiêu số nguyên chẳn và in các số nguyên chẵn đã nhập
Nhập vào dãy gồm n phân số; trong đó tử số và mẫu số của mỗi phân số là các số nguyên dương. (làm bằng ngôn ngữ C)
a. Hãy tính tổng các phân số của dãy; kết quả là một phân số tối giản.
b. Đếm xem có bao nhiêu phân số không phải là phân số tối giản.
c. Tìm phân số có giá trị lớn nhất của mảng.
Viết chương trình nhập vào một dãy n số nguyên khác nhau từ bàn phím. Tìm min, max của dãy và số lần xuất hiện của min, max đó.
Viết chương trình nhập vào một số chẵn lớn hơn 10 nhỏ hơn 70. Nếu nhập không đúng yêu cầu nhập lại? Sau đó tính tổng các số từ 1 đến số chẵn vừa nhập?
ai giúp e bài này với ạ
1. Viết chương trình tính tổng 2 số nguyên a, b.
2. Viết chương trình tính diện tích hình tròn với bán kính r nhập từ
bàn phím.
3. Viết chương trình nhập vào 1 ký tự. In ra màn hình vị trí ký tự đó
trong bảng mã ASCII
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
