Lập trình đơn giản

NA

viết chương trình nhập vào 30 số nguyên bất kì. Tìm số lớn nhất. Giúp mik gấp nha

HN
22 tháng 4 2017 lúc 18:58

uses crt;

var i, max: integer;

a: array [1..30] of integer;

begin

clrscr;

for i:=1 to 30 do

begin

write ('a[ ',i ,']='); readln (a[i]);

end;

max:= a[1];

for i:=2 to 30 do

if a[i] > max then max := a[i];

writeln( ' so lon nhat la: ' ,max);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
YP
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
LV
Xem chi tiết
NV
Xem chi tiết
NP
Xem chi tiết
KC
Xem chi tiết
NL
Xem chi tiết
T8
Xem chi tiết