Số âm lớn nhất:
Cho một dãy gồm N số nguyên a1, a2,…,an, mỗi số có giá trị tuyệt đối không vượt quá 10^5
Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.
Dữ liệu:
– Dòng đầu tiên chứa số nguyên dương N(1<=N<=10^5).
-N dòng tiếp theo, dòng thứ i chứa số ai.
Kết quả: Ghi một dòng duy nhất số X tìm được. Trong trường hợp không có lời giải, ghi ra số 0.
program ct;
uses crt;
const vao=’DAYSO.INP’;
ra=’DAYSO.OUT’;
var a:array[1..1000] of integer;
i,n,X,v,r:integer;
begin clrscr;
assign(v,vao); Reset(v);
assign(r,ra); Rewrite(r);
readln(v,n);
for i:=1 to n do read(v,a[i]);
for i:=1 to n do
if a[i]<0 then X:=a[i] else write(‘0’);
for i:=1 to n do
if (a[i]<0) and (a[i]>X) then X:=a[i];
writeln(r,X);
close(v);
close(r);
readln;
end.
Học tốt!
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin clrscr;
assign(input,’INP.INP’);
assign(output,’OUT.OUT’);
reset(input); rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] < 0 then max:=a[i];
for i:=1 to n do if (a[i]>max) and (a[i]<0) then max:=a[i];
write(output,max);
close(input); close(output);
readln
end.