program bt;
var a:array[1..1000] : integer;
i,n,t:integer;
begin
write('nhap so phan tu cua mang');
readln(n);
for i:=1 to n do
begin
write('phan tu thu ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
t:= t + a[i]
write('tong cac phan tu trong mang la :',t);
readln
end.
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
b) In ra màn hình tổng của các số chẵn có trong mảng
Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất.
Bài 3: khai báo biến mảng trong pascal với mô tả sau:
Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là 100.
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
e) In ra màn hình các số chia hết cho 3
Viết chương trình nhập vào mảng A, in ra đoạn con có tổng nhỏ nhất gồm m phần tử, m nhập từ bàn phím(pascal )
Viết ct pascal nhập 1 dãy số nguyên gồm n phần tử .in ra màn hình tổng các số lẻ trong mảng ..... Mong Mn Giúp E Cho E Thi Hk ạ
Giúp với tớ cần gấp viết chương trình cho người dùng nhập vào một số nguyên dương lớn hơn 2 và đưa ra màn hình các số là ước của số nguyên đó.
viết chương trình nhập vào một dãy gồm N (1<=n<=1000) phần tử các số nguyên, tìm giá trị của phần tử MIN trong dãy và vị trí của phần tử MIN đó?
viết chương trình nhập từ bàn phím 2 số nguyên a và b. tính và viết ra kết quả của biểu thức 1 phần a^2 cộng 1 phần b^2 trên chương trìn pascal . ai giúp e với ah e đang cần gấp
Viết chương trình tính tổng chẵn (lẻ) n số tự nhiên nhập từ bàn phím (dùng vòng lặp) Giúp vs ạ em cần gấp
