program sapxep;

var

     i, j, n, x: integer;

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

begin

     write('Nhap so phan tu trong day: ');

     readln(n);

     for i := 1 to n do

     begin

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

          readln(a[i]);

     end;

     for i := 1 to n - 1 do

          for j := i + 1 to n do

               if a[i] > a[j] then

               begin

                    x := a[i];

                    a[i] := a[j];

                    a[j] := x;

               end;

     write('Nhap so x: ');

     readln(x);

     for i := 1 to n do

     begin

          if x <= a[i] then

          begin

               for j := n downto i + 1 do

                    a[j] := a[j-1];

               a[i] := x;

               break;

          end;

     end;

     writeln('Day so vua sap xep va them phan tu x:');

     for i := 1 to n do

          write(a[i], ' ');

     writeln;

end.

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

long long n,a[1000],m,i;

bool kt;

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cin>>m;

kt=false;

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

if (a[i]==m) kt=true;

if (kt==true) cout<<"Co";

else cout<<"Khong";

return 0;

}

Program HOC24;

var m,i,n,d: integer;

a: array[1..200] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Nhap M: '); readln(m);

d:=0;

for i:=1 to N do if a[i]=m then d:=d+1;

if d<>0 then (m,' thuoc day vua nhap');

readln

end.

Ai giải giúp mik ạ

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[10],i;

bool kt;

int main()

{

for (i=1; i<=10; i++) cin>>a[i];

kt=true;

for (i=1; i<=9; i++) if (a[i]>a[i+1]) kt=false;

if (kt==true) cout<<"YES";

else cout<<"NO";

return 0;

}

Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.

1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.

2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.

3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.

Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.

Chúc bạn học tốt .

Câu 1: 

uses crt;

var n,i,t:integer;

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

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Câu 1:

Program Tin_hoc;

Uses crt;

Var i,n,tong:integer;

      tb:real;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap n: ');readln(n);

tong:=0;

Writeln('Nhap ',n,' phan tu cua day:');

for i:= 1 to n do

  begin

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

  readln(a[i]);

  tong:=tong+a[i];

  end;

tb:=tong/n;

Writeln('Gia tri trung binh cua day la: ',tb:0:4);

readln;

end.

Câu 1: 

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;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Câu 2: 

uses crt;

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

i,n,x,dem,kt:integer;

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

kt:=0;

dem:=0;

for i:=1 to n do 

if a[i]=x then 

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.