huhu giúp với ạ cần gấp lắm

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

Bài 1.

Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)

Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)

Bước 3. \(i\leftarrow i+1\)

Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.

4.2 \(a_i\ge0\) thì quay lại bước 3

4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3

Viết thuật toán tính tổng các phần tử bằng 0

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap x='); readln(x);

for i:=1 to n do 

  if a[i]<>x then write(a[i]:4);

readln;

end.

phần a

phần b

Bạn nào giỏi về cái này giúp mình với ạ

uses crt;

var a:array[1..100]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;

writeln('Day A=');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

  if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.

Bước 1: Nhập n và nhập dãy số

Bước 2: t←0; i←1;

Bước 3: Nếu a[i]<0 thì t←t+a[i];

i←i+1;

Bước 4: Nếu i<=n thì quay lại bước 3

Bước 5: Xuất t

Bước 6: Kết thúc

B1 nhập n và dãy a1,a2....... an      B2 i+1  D<- d+1                         B3 nếu i > n thì đưa ra y và kết thúc 

Bước 1: Nhập N và dãy số  a 1 , . . . . , a n

Bước 2: i ←1;S ← 0 (0,5đ)

Bước 3: i > N thì sang bước 6 ngược lại sang bước 4 (0,5đ)

Bước 4: Nếu ai chia hết cho 2 thì S ←S + ai ; (0,5đ)

Bước 5: i ← i+1; quay lại bước 3

Bước 6: dừng và đưa S ra màn hình. (0,5đ)

uses crt;

var a:array[1..100]of integer;

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln('So luong so chan la: ',dem1);

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);

readln;

end.

input: Dãy số nguyên

Output: Kiểm tra xem dãy có đối xứng không

*Thuật toán

Bước 1: Nhập n và nhập dãy số

Bước 2: i←1; kt←true;

Bước 3: Nếu a[i]<>a[n-i+1] thì kt←false;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=true thì đây là dãy đối xứng và ngược lại

Bước 7: Kết thúc