Những câu hỏi liên quan
CG
Xem chi tiết
NT
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)
Q6
Xem chi tiết
TD
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)
H24
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)
NA
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)
LT
Xem chi tiết
NT
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)
LH
Xem chi tiết
ND
Xem chi tiết
ND
Xem chi tiết
H24
5 tháng 1 2016 lúc 19:19

minh moi hoc den tam giac

Bình luận (0)
VG
5 tháng 1 2016 lúc 19:19

7500 đó. tick cho mình nha

 

Bình luận (0)
NN
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)
PX
Xem chi tiết
TQ
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết
H24
14 tháng 10 2017 lúc 21:19

ai biet tro loi giup voi toi k ngay

Bình luận (0)