//
you're reading...
Bài tập huấn luyện, Đề ôn luyện thi học kỳ

Bài tập huấn luyện: TÌM SỐ ÂM LỚN NHẤT


Đề bài


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á 105.

Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.

Dữ liệu: Vào từ file văn bản SOAM.INP:

  • Dòng đầu tiên chứa số nguyên dương N (1 £ N £ 105).
  • N dòng tiếp theo, dòng thứ i chứa số ai.

Kết quả: Ghi ra file văn bản SOAM.OUT trên 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.

Ví dụ:

SOAM.INP
5
-4
3
2
-5
7

Kết quả:

SOAM.INP
-5

Hướng dẫn


[Chương trình mẫu]

uses crt, math;
const
vocungbe = -1000000000;
Max = 100;
fileinp = ‘d:\soam.inp’;
fileout = ‘d:\soam.out’;
type m1 = array[1..max] of int64;
var
fi, fo: text;
MinVal : int64;
n,i : byte;
a: m1;
procedure Nhap;
begin
assign(fi, fileinp);
reset(fi);
readln(fi,n);
for i:=1 to n do read(fi, a[i]);
close(fi);
end;
procedure Xuli;
begin
MinVal:= vocungbe;
for i:=1 to n do
if (a[i]<0) and (a[i]>MinVal) then MinVal:= a[i];
assign(fo, fileout);
rewrite(fo);
writeln(fo,MinVal);
close(fo);
end;

begin
clrscr;
Nhap;
Xuli
end.

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Chưa có phản hồi.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Tháng Mười Một 2016
M T W T F S S
« Oct   Dec »
 123456
78910111213
14151617181920
21222324252627
282930  

NCT Computer

Flickr Photos

A bellezza di a natura (C☺rsica)

Southern White-faced Owl D75_5752.jpg

2016 Lake Yamanaka winter Fuji

More Photos

Thống kê

  • 78,768 lượt xem

%d bloggers like this: