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ố lớn hơn 0 và bé hơn 0
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
Viết ct nhập n số nguyên từ bàn phím . In các số lẻ ra màn hình
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
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)
c1 Viết chương trình in ra màn hình trung bình cộng của 3 số dương a,b,c(a,b,c được nhập từ bàn phím)
c2 Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh a và b(được nhập từ bàn phím in ra kết quả màn hình)
Hộ mình với ạ đang cần gấp
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
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
1.viết phương trình nhập danh sách n số và in ra tích các số lẻ trong danh sách (nhập từ bàn phím)
2. Viết phương trình nhập danh sách n số và in ra màn hình các số chẵn của danh sách (nhập từ bàn phím)
P/s: Giúp mình với ạ, mình cảm ơn nhiều><
