Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó in ra màn hình giá trị lớn nhất của dãy số
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Viết chương trình tính tổng các số chẵn trong dãy số nguyên A1, A2, ..., An. Biết rằng n, A1, A2, ..., An là các số nguyên nhập từ bàn phím (n>0)?
Các bạn giúp mình nha ,mình cần gấp lắm
program Tinhtong;
uses crt;
var a:array[1..100] of integer;
sum,n:integer;
begin clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
sum:=0;
for i:=1 to n do
if (a[i] mod 2 = 0) then sum:=sum+a[i];
write('Tong cac so chan = ',sum);
readln;
end.
Làm giúp mình bài này với ạ,mình đang cần gấp
Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
Viết chương trình nhập mảng một chiều gồm dãy số nguyên a1, a2 .....an chuyển các phần tử chẵn về đầu mảng, lẻ ở cuối mảng và hiện ra kết quả ra màn hình
n = int(input("Nhập số phần tử của mảng: "))
arr = []
for i in range(n):
arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))
even_arr = []
odd_arr = []
for num in arr:
if num % 2 == 0:
even_arr.append(num)
else:
odd_arr.append(num)
new_arr = even_arr + odd_arr
print("Mảng mới: ", new_arr)
Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên A1,A2...An (n
Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau
1 : viết các thủ tục nhập / xuất mảng A
2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A
Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
edn;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập vào một dãy số nguyên gồm N (1<=N<=500) phần tử A1,A2…AN. Tìm cách chia mảng thành 2 đoạn có tổng các phần tử trong mỗi đoạn bằng nhau. C++, ai giup voi
#include <iostream>
#include <vector>
using namespace std;
bool divideArray(vector<int>& nums, int N) {
int totalSum = 0;
for (int i = 0; i < N; i++) {
totalSum += nums[i];
}
if (totalSum % 2 != 0) {
return false;
}
int halfSum = totalSum / 2;
vector<vector<bool>> dp(N + 1, vector<bool>(halfSum + 1, false));
dp[0][0] = true;
for (int i = 1; i <= N; i++) {
for (int j = 0; j <= halfSum; j++) {
dp[i][j] = dp[i - 1][j];
if (j >= nums[i - 1]) {
dp[i][j] = dp[i][j] || dp[i - 1][j - nums[i - 1]];
}
}
}
return dp[N][halfSum];
}int main() {
int N;
cout << "Nhập số phần tử N: ";
cin >> N;
vector<int> nums(N);
cout << "Nhập các phần tử của mảng: ";
for (int i = 0; i < N; i++) {
cin >> nums[i];
}
bool isPossible = divideArray(nums, N);
if (isPossible) {
cout << "Có thể chia mảng thành hai đoạn có tổng bằng nhau." << endl;
} else {
cout << "Không thể chia mảng thành hai đoạn có tổng bằng nhau." << endl;
}
return 0;
}
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. 
Bài 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
