uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
viết ct n nhập từ bàn phím in ra màn hình các chữ số âm và các chữ số dương
Viết ct nhập n số nguyên từ bàn phím . In các số lẻ ra màn hình
Viết chương trình in ra màn hình gtrị tổng cá số tự nhiên lẻ bé hơn hoặc bằng Những, Với số N đc nhập từ bàn phím
Viết CT nhập vào N số nguyên từ bàn phím. Tính tích các chữ số âm trong N số vừa nhập.In kết quả ra màn hình
Câu 4. Viết chương trình nhập một dãy gồm n số từ bàn phím, đếm xem có trong đó có bao nhiêu số lớn hơn 10 và nhỏ hơn 20. Tính tổng các số lớn hơn 10 và nhỏ hơn 20 đó. In kết quả tính được ra màn hình.
Câu 5. Viết chương trình nhập một dãy gồm n số nguyên từ bàn phím, đếm xem có trong đó có bao nhiêu số là số chẵn. Tính tổng các số chẵn đó. In kết quả tính được ra màn hình.
Mọi người giúp em với ạ! Em cảm ơn nhiều!
In giá trị lớn hơn ra màn hình của 2 số a và b được nhập vào từ bàn phím
1. Hãy nhập từ bàn phím 1 dãy số nguyên không âm. Hãy viết chương trình in ra màn hình chỉ số i nhỏ nhất sao chi tổng các phần tư từ 1 đến i lớn hơn 100
2. Hãy viết chương trình pascal để thực hiện các nhiệm vụ sau đây:
- Nhập vào từ bàn phím 1 dãy số không quá 30 số nguyên
- Kiểm tra rồi cho biết dãy số vừa nhập có phải là dãy số không giảm hay không
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)? Tính tổng và đếm các số dương có trong dãy số? In kết quả ra màn hình
viết ct sử dụng biến mảng để nhập từ bàn phím điểm của n học sinh trong một lớp và in ra màn hình số học sinh đạt kết quả học tập loại Khá(với sỉ số n học sinh trong lớp là số nguyên dương được nhập từ bàn phím)
