xin loi ban minh cung muon giai giup ban lam nhung minh moi hoc lop 5 thoi

mình giống bạn sakura - sorry  nha

giả sử P lẻ thì a1-b2;a2-b2;a2003-b2003 lẻ.khi đó, (a1-b1)+(a2-b2)+...+(a2003-b2003) lẻ(vì có 2003 cặp số lẻ) (1)

mà (a1-b1)+(a2-b2)+...+(a2003-b2003)=(a1+a2+...+a2003)-(b1+b2+...+b2003). vì b1;b2;b3;...;b2003 là cách sắp xếp theo thứ tự khác của a1;a2;a3;...;a2003 nên (a1+a2+...+a2003)-(b1+b2+...+b2003)=0(2)

do (1) và(2) mâu thuẫn nên P ko thể là số lẻ, vậy P là số chẵn(đpcm)

tick 

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

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

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

Bước 3: Nếu a[i]>0 thì dem←dem+1;

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

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

Bước 6: Xuất dem

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

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

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

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

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

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

B.1 : Nhập N và các số hạng  a 1 , a 2 , . . . . . , a n ;

B.2 : M ← N ;

B.3 : Nếu M ⟨ 2 thì đưa ra dãy A đã được sắp xếp rồi Kết thúc;

B.4 : M ← M-1 ; i ← 0 ;

B.5 : i ← i - 1 ;

B.6 : Nếu i > M thì quay lại bước 3;

B.7 : Nếu ai > ai+1 thì tráo đổi ai và ai+1 cho nhau;

B.8 : Quay lại bước 5;

#include <bits/stdc++.h>
using namespace std;
const long long maxn=1e5+10;
long long a[maxn],i,n,x,l,r,m;
//chuongtrinhcon
long long tknp(long long a[],long long l,long long r,long long x)
{
    while (l<=r)
    {
        long long g=(l+r)/2;
        if (a[g]==x) return(g);
        if (x>a[g]) l=g+1;
        else r=g-1;
    }
    return(-1);
}
int main()
{
    freopen("tknp.inp","r",stdin);
    freopen("tknp.out","w",stdout);
    cin>>n>>x;
    for (i=1; i<=n; i++)
        cin>>a[i];
    cout<<tknp(a,1,n,x);
    return 0;
}

  là số chẵn

Bài 1:

Uses crt;

var i,n,j:integer;

     a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

for i:= 1 to n do readln(a[i]);

for i:= 1 to n do readln(b[i]);

j:=0;

for i:= 1 to n do 

  Begin

  inc(j);

  c[j] := a[i];

  inc(j);

  c[j] := b[i];

  end;

for i:= 1 to j do write(c[i],'  ');

readln;

end. 

Làm giúp bài này nhé

uses crt;

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

i,n,min,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do write(a[i]:4);

readln;

end.

Câu 1: C

Câu 8: C

Câu 3: C