Những câu hỏi liên quan
Tien Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:30

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

writeln(a[3]);

readln;

end.

Bình luận (0)
Hoàng Thị Mỹ Phan
Xem chi tiết
Huy Phạm
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 6:12

1)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Bình luận (0)
Kiều Vũ Linh
3 tháng 5 2023 lúc 6:13

2)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Bình luận (0)
MinasuaSan Channel
Xem chi tiết
Tên Có Ko
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 10:48

uses crt;

var thu:integer;

begin

clrscr;

repeat

write('Nhap thu:'); readln(thu);

until (2<=thu) and (thu<=8);

case thu of

2: writeln('Monday');

3: writeln('Tuesday');

4: writeln('Wednesday');

5: writeln('Thursday');

6: writeln('Friday');

7: writeln('Saturday');

8: writeln('Sunday');

end;

readln;

end.

Bình luận (0)
Nguyễn Ngọc Phượng
Xem chi tiết
Thế Thôi
23 tháng 4 2022 lúc 20:48

Tham Khảo!

Bình luận (4)
19 - Võ Hoàng Luân
Xem chi tiết
19 - Võ Hoàng Luân
22 tháng 2 2022 lúc 19:23

Khóc huhu :((

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:39

#include <bits/stdc++.h>

using namespace std;

long long i,n,a[1000],dem,t;

int main()

{

cin>>n;

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

cin>>a[i];

t=0;

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

if (a[i]%15==0) 

{

cout<<a[i]<<" ";

t+=a[i];

}

cout<<endl;

cout<<"Tong cac so chia het cho 3 va 5 la: "<<t;

return 0;

}

Bình luận (0)
nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 0:31

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

Bình luận (0)
Dũng Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:43

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<min(a,b)<<" "<<max(a,b)<<endl;

cout<<max(a,b)<<" "<<min(a,b)<<endl;

return 0;

}

Bình luận (0)