Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Charlotte Grace
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2021 lúc 20:54

Câu 1: 

uses crt;

var b:array[1..100]of real;

i,n:integer;

min:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('B[',i,']='); readln(b[i]);

end;

min:=b[1];

for i:=1 to n do 

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

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

readln;

end.

Câu 2:

uses crt;

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

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); 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

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day giam dan la: ');

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

readln;

end.

quan cong 6
Xem chi tiết
Trần Gia Đạo
16 tháng 10 2016 lúc 21:14

Tiếng Việt không dấu như ăn cơm không có canh

Người Việt đọc tưởng tiếng Tây, Tây đọc không hiểu

e942
28 tháng 4 2017 lúc 11:31

Tiếng Việt ko có dấu đọc sao dc .

nguyễn hoàng khánh an
12 tháng 2 2019 lúc 21:05

mình ko hiểu câu hỏi lắm

bạn viết có dấu dc ko

thanks bn

Lê gia thịnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2023 lúc 14:58

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

writeln;

for i:=1 to n do 

if i mod 2=1 then write(i:4);

readln;

end.

luong thi ngoc ha
Xem chi tiết
Nguyễn Hải Đăng
Xem chi tiết
Nguyễn Tùng Dương
Xem chi tiết
ilovemom
5 tháng 1 2016 lúc 19:19

minh moi hoc den tam giac

Võ Lê Quỳnh Giao
5 tháng 1 2016 lúc 19:19

7500 đó. tick cho mình nha

 

Ngọc Tôn Nữ
5 tháng 1 2016 lúc 19:19

đáy bé là

120/3*2=80 cm

chiều cao là

80-5=75 cm

diện tích là

(80+120)*75/2=7500 cm2

Pham Khanh Xuan
Xem chi tiết
Trần Phạm Minh Quân
Xem chi tiết
nguyễn nhật linh
Xem chi tiết
nhi
Xem chi tiết
nhi
14 tháng 10 2017 lúc 21:19

ai biet tro loi giup voi toi k ngay