var i,n,sum:longint;
a:array[1..10000] of longint;
begin
write('Nhap n = ');
read(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] = ');
read(a[i]);
sum:=sum+a[i];
end;
write('Tong cac phan tu cua mang la: ',sum);
readln
end.
viết chương trình nhập vào mảng a có n phần tử là các số nguyên dương.Tìm các số xuất hiện trong mảng a và số có số lần xuất hiện nhiều nhất
Viết chương trình tính tổng giá trị của phần tử mảng N phần tử
Viết chương trình nhập một mảng số nguyên gồm n phần tử đưa mảng vừa nhập ra màn hình tính tổng bình phương của các số âm trong một mảng đưa kết quả ra màn hình.
Em hãy viết chương trình pascal nhập một mảng số nguyên gồm n phần tử với n được nhập từ bàn phím in rãi vừa nhập ra màn hình và tính tổng các phần tử trong mảng đưa kết quả ra màn hình.
Viết chương trình nhập vào số nguyên n (n<103) và dãy n số nguyên {a1, a2, ..., a3}
Yêu cầu:
- In lên mảng vừa nhập lên màn hình trên cùng 1 hàng
- In lên màn hình các phần tử có giá trị chẵn
VD: n=5 {3; 5; 8; 1; 60}
Kết quả:
3 5 8 1 60
C++ nhé, giúp e với ạ;-;
Viết chương trình nhập vào một mảng gồm n phần tử(0<n<=20) từ bàn phím. Sắp xếp lại bảng theo thứ tự tăng dần đưa mảng trước và sau khi sắp xếp ra màn hình.
Cho mảng b gồm n phần tử được nhập từ bàn phím
a/Tính tổng các phân tử có số chẵn của dãy
b/Tính tổng các phân tử âm của dãy
c/Tìm phần tử lớn nhất và nhỏ nhất của dẫy
d/Tính tổng các phân tử chia hết cho 3 có
Viết chương trình sử dụng biến mảng để tính tổng các phần tử lớn hơn 0 của dãy N số nhập vào từ bàn phím?
Please, help me!
1. Nêu cách khai báo biến mảng trong pascal? Khi nòa nên dung biến mảng?
2. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
3. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
4. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
5. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:=7;
While (K=7) Do write(“ lap lan thu may”);
b. H:=3;n:=6;
While (n<= 20) Do H:=H+n;
c. For F:=3 to 23 do readln;