mjk nhap bang may tinh thong cam

bạn nhấn shift+ctrl đ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.

đổi 15m4dm=154dm

độ dài của sợi dây thứ 2 là

(154+20):2=87 ( dm )

đáp số : 87dm

                                       Giải:

      Đổi : 15 m 4 dm = 154

Độ dài sợi dây thứ 2 là :

( 154 + 20 ) : 2 = 87   ( dm )

Đáp số : 87 dm

ta có hiệu hai đáy là 21 và tỉ số của đáy lớn so với đáy bé là 4/7

ta có sơ đồ hiệu tỉ như đã học ở trong sgk

đáy lớn là

21:(7-4).7=49(cm)

đáy bé là

49-21=28(cm)

diện tích hình thang là

(49+28).(28:2):2=539(\(^{cm^2}\)⁾

Chiều cao của thửa ruộng đó là :

   80 x 2 : ( 10 + 6 ) = 10 ( m )

Đáy bé của thửa ruộng đó là :

   52 x 75 : 100 = 39 ( m )

Diện tích của thửa ruộng đó là :

   ( 52 + 39 ) x 10 : 2 = 455 ( m )

Đ/s : 455 m

Chiều cao của thửa ruộng đó là :

   80 x 2 : ( 10 + 6 ) = 10 ( m )

Đáy bé của thửa ruộng đó là :

   52 x 75 : 100 = 39 ( m )

Diện tích của thửa ruộng đó là :

   ( 52 + 39 ) x 10 : 2 = 455 ( m )

Đ/s : 455 m

Sợi dây thứ nhất dài hơn sợi dây thứ ba:

12,2 - 10,4= 1,8(m)

Sợi dây thứ nhất dài:

(17,4+1,8):2= 9,6(m)

Sợi dây thứ ba dài:

9,6 - 1,8= 7,8(m)

Sợi dây thứ hai dài:

12,2 - 9,6 = 2,6(m)

Đ.số:....

Viết không dấu như vậy , mình không đọc được bạn nhé