Bài 4. Sử dụng biến trong chương trình

giabao tran

Viết chương trình sử dụng biến mảng nhập 20 số nguyên từ bàn phím và in ra màn hình số lớn nhất trong các số đó

Nguyễn Lê Phước Thịnh
18 tháng 6 2020 lúc 17:10

uses crt;

var a:array[1..20]of integer;

i,max:integer;

begin

clrscr;

for i:=1 to 20 do

begin

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

end;

max:=a[1];

for i:=2 to 20 do

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

write(max);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn minh quân
Xem chi tiết
le thi minh phuong
Xem chi tiết
Huỳnh Thanh Trúc
Xem chi tiết
Nguyễn Mỹ Uyên
Xem chi tiết
Vanh Nguyễn
Xem chi tiết
La Thị Thu Phượng
Xem chi tiết
Nguyen Thai
Xem chi tiết
19 Huỳnh Lê hoàng 8a7
Xem chi tiết
Phan Thị Chuyên
Xem chi tiết