uses crt;
var a:array[1..10]of integer;
i,n,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
viết chương trình nhập vào dãy A gồm 10 số nguyên. Tnhs và in ra màn hình tổng, trung bình cộng của các số trong mảng đó
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
viết chương trình: + nhập 1 mảng gồm 15 số nguyên
+ in ra màn hình các số chẵn và tính tích
+ in ra màn hình tổng bình phương các số âm
Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, in mảng đã nhập ra màn hình, tính trung bình cộng của mảng đó.
Bài 1. Viết chương trình nhập vào 1 mảng a gồm n phần tử nguyên được nhập từ bàn phím.
a) Tính tổng các số chẵn và lớn hơn 10? Thông báo kết quả và in mảng ra màn hình?
b) Đếm các số lẻ hoặc nhỏ hơn 100? Thông báo kết quả và in mảng ra màn hình?
Bài 1: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tổng các phần tử nguyên âm lẻ và in tổng đó ra màn hình. Bài 2: Viết chương trình nhập mảng số nguyên A có n phần tử. Tính tích các phần tử nguyên dương chẵn và in tích đó ra màn hình.
Viết chương trình:
- Nhập mảng gồm n phần tử, với n được nhập vào từ bàn phím
- In mảng lên màn hình
- In ra màn hình số phần tử chia hết cho 2
- Tính và in ra màn hình tổng các phần tử của mảng
Viết chương trình nhập vào số nguyên N, tính và đưa ra màn hình trung bình các số lẽ từ 1 đến N
Viết chương trình nhập vào dãy số A gồm N số thực ( N < = 20 ) . Hãy tính trung bình cộng các số chia hết cho 3 trong dãy A và đưa kết quả ra màn hình .
