Những câu hỏi liên quan
nhannhan
Xem chi tiết
Phía sau một cô gái
13 tháng 4 2023 lúc 14:22

program ChenSoX;

var

     i, j, n, x: integer;

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

begin

     write('Nhập số phần tử trong dãy số: ');

     read(n);

     for i:=1 to n do

     begin

          write('Nhập phần tử thứ ', i, ' của dãy số: ');

          read(a[i]);

     end;

     write('Nhập số x cần kiểm tra và chèn vào dãy số:');

     read(x);

     i := 1;

     while (i <= n) and (a[i] < x) do

          i := i + 1;

     if (i <= n) and (a[i] = x) then

          writeln('Số ', x, ' đã có trong dãy số')

     else

     begin

          for j:=n downto i+1 do

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

          a[i] := x;

          writeln('Dãy số mới:');

          for i:=1 to n+1 do

               write(a[i], ' ');

     end;

     readln;

end.

Bình luận (0)
bui pham phuong Uyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 13:15

Bài 1: 

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

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;

writeln('Day tang dan la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]<=x) then 

   begin

  if max<a[i] then max:=a[i];

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

Bình luận (0)
nguyễn an phát
Xem chi tiết
Linh hoa
Xem chi tiết
nhannhan
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Huyền Diệu Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:49

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
k_o_t_en
Xem chi tiết
Phương Thảo
Xem chi tiết
Thế Thôi
20 tháng 4 2022 lúc 22:27

tham khảo thui nha😅


 

Bình luận (1)