Đề thiếu rồi bạn

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.

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;

}

phần a

phần b

VD: N=5, K=3, A1=2, A2=3, A3=3, A4=5, A5=6

$a)$

Input: số nguyên n, dãy số nguyên A, số nguyên k

Output: số lượng phần tử có giá trị lớn hơn k

$b)$

Thuật toán:

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

$c)$

$+$ dem=0; i=1;

$+$ i>N (Sai): A[1] không lớn hơn k, i=i+1=2

$+$ i>N (Sai): A[2] lớn hơn k, dem=dem+1=1; i=i+1=3

$+$ i>N (Sai): A[3] không lớn hơn k; i=i+1=4

$+$ i>N (Sai): A[4] không lớn hơn k, i=i+1=5

$+$ i>N (Sai): A[5] lớn hơn k, dem=dem+1=2; i=i+1=6

$+$ i>N (Đúng): In dem là 6.

End

Input: N, dãy số nguyên a1,a2,...,aN và k

Output: Số phần tử là bội của k

Thuật toán liệt kê:

Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k

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

Bước 3: Nếu i>N thì in ra d và kết thúc

Bước 4: Nếu a_i chia hết cho k thì d←d+1; 

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

#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;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}