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.

Bình luận (0)
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

Bình luận (0)
e942
28 tháng 4 2017 lúc 11:31

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

Bình luận (0)
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

Bình luận (0)
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.

Bình luận (0)
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

Bình luận (0)
Võ Lê Quỳnh Giao
5 tháng 1 2016 lúc 19:19

7500 đó. tick cho mình nha

 

Bình luận (0)
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

Bình luận (0)
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

Bình luận (0)