K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

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.

6 tháng 4 2016

chiều cao là:

20 : 2 = 10m

diện ha hình thang là:

(30+20)x10:2=250m2

chiều cao hình tam giác là:

250 : 40 x 2 = 12,5m

6 tháng 4 2016

chiều cao là:

20 : 2 = 10m

diện ha hình thang là:

(30+20)x10:2=250m2

chiều cao hình tam giác là:

250 : 40 x 2 = 12,5m

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.

7 tháng 7 2016

Số nước lọc an đổ thêm là: 1/6+1/3+1/2=1(cốc nước)

Suy ra an uống số nước lọc và nước chè bằng nhau

16 tháng 10 2016

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

28 tháng 4 2017

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

26 tháng 2 2016

giup minh voi

27 tháng 2 2016

giup mink voi câc ban