Uses crt;
var i,max: longint;
vtmax: byte;
a: array[1..200] of longint;
begin
clrscr;
write('nhap N: '); readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if i=1 then max:=a[i]
else if max<a[i] then
max:=a[i]; vtmax:=i;
End;
a[vtmax]:=low(longint);
else if max<a[i] then max:=a[i];
writeln;
write(max);
readln;
end.
cách làm: tìm số lớn nhất trong dãy ròi biến số đó thành số bé nhất, ròi tìm số lớn nhất lần 2
program tfkgujhkjg;
uses crt;
var i, b, n: integer
a:array[1..200] of integer;
begin clrscr;
write('co bao nhieu so ma ban muon nhap: '); readln(n);
for i: 1 to n do
write(' nhap so thu', i); readln( a[i] );
end;
b:= a[1]
if b < a[i] then b:=a( [i] ) ;
write('so lon nhat la:', b);
Chứng minh giá trị biểu thức không phụ thuộc vào a (3a+2).(2a-1)+(3-a).(6a+2)-17.(a-1)
đốt cháy một hydrocarbon A được 22,4 lít khí co2 và 27g h20 thể tích o2 tham gia phản ứng là thanks
Hộ mình câu c với ạ đúng mình tick cho (60 điểm)
Tính s = -1 mũ 2 + -2 mũ 2 + -3 mũ 2 + chấm chấm chấm + -200 mũ 2
cảm nhận về LƯƠNG Thế Vinh ( đây là lịch sử nhé)
1 viên đạn khối lượng 50g bay ngang với vận tốc 200km/h . Nếu nó đến xuyên vào tấm gỗ dày thì nó chỉ chui vào sâu 4cm. a. Tính lực cản trung bình của gỗ tác dụng lên viên đạn b. Nếu nó xuyên qua tấm gỗ dày 2cm thì bay ra ngoài với tốc độ v2 Giải chi tiết giúp mình với, mình sẽ vote 5 sao. Cảm ơn nhiều
Việc Mĩ ném bom nguyên tử vào Nhật Bản có phải là việc ăn may của Việt Nam không? Vì sao?
Giải giúp mình với Mình cần gấp
Cho hỗn hợp 2 muối FeCO3 và CaCO3 tan trong hh HCl vừa đủ , tạo ra 2,24l khí đktc. Số mol HCl tiêu tốn hết là?
mọi người ơi mọi ơi 10đ 10đ Cho công thức tính chiều cao của hình hộp chữ nhật khi có diện tích xung quanh và chiều dài chiều rộng đi! Đang làm bài tự nhiên quên công thức giúp mình với!
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
