program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,vt,M:integer;
begin clrscr;
writeln('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('A[',i,']'); readln(A[i]);
end;
M:=A[1];
if A[i]<M then
M:=A[i];
vt:=i;
writeln(Vi tri A[',i,'] la vi tri so be nhat: ',st);
readln;
end.
Học tốt!
var a :aray[1..100] of integer;
i,n,min ,s: integer;
write('Nhap n='); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
endl
min :=a[1];
for i:=2 to n do if min < a[i] then begin s:=i; min :=a[i]; end;
write('Gia tri be nhat la :', min, 'tai vi tri',s);
readln
So sánh nhiệt độ sôi của ancol metylic ancol etylic và propan giải thích
hãy vẽ đường biểu diễn sự biến thiên của nhiệt độ theo t/gian nóng trong quá trinh đun nóng, sôi và để nguội dựa theo các điều kiện: +Nhiệt độ ban đầu là 30 độ C, nhệt độ sôi là 100 độ C và nhiệt độ cuối cùng là 50 độ C +Thời gian đun nóng để sôi là 5 phút, sôi 3 phút, thơi gian nguội 3 phút
Xung quanh chúng ta có rất nhiều các vi sinh vật gây bệnh nhưng vì sao đa số chúng ta vẫn sống khỏe mạnh
Một khối khí đang ở trạng thái (1) có thể tích 2 lít, nhiệt độ 47°C, áp suất 5atm thực hiện liên tiếp 2 quá trình: dãn đẳng nhiệt đến trạng thái (2) có thể tích tăng lên 2 lần rồi làm lạnh đẳng áp cho đến trạng thái (3) có thể tích ban đầu. a) Xác định áp suất, nhiệt độ, thể tích của khối khí ở trạng thái (2) (3) b) Vẽ đồ thị biểu diễn 2 quá trình trên đồ thị (V,T) và đồ thị (p, T) Giúp mình với, cảm ơn ạ
vì sao người vi phạm pháp luật phải chịu trách nhiệm pháp lý
Rewrite each of the following sentences.Keep the meaning the same.
là học sinh em sẽ làm gì để góp phần đảm bảo trật tự an toàn giao thông (ko chép mạng nhé) vote 5* ctlh
Làm hộ em phần g và phần h hoặc làm một cái cũng đc . Yêu m.n nhìu lém
Tại sao mùa đông ở miền Bắc và Đông Bắc Bắc Bộ lại đến sớm và kết thúc muộn? ❄
Giải pháp, những việc làm cụ thể của bản thân để bảo vệ những giá trị văn hóa đang ngày càng bị mai một
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
