//
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.

Advertisements

About pascalteacher

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

Thảo luận

Không có bình luận

Trả lờ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 Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười Một 2016
H B T N S B C
« Th10   Th12 »
 123456
78910111213
14151617181920
21222324252627
282930  

NCT Computer

Flickr Photos

Thống kê

  • 206,489 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: