범굼수

Viết chương trình nhập 5 số nguyên từ bàn phím và in ra màn hình số lớn nhất trong 5 số đó Giúp vớiii ạ, chiều m thi rồi😿

Nguyễn Lê Phước Thịnh
31 tháng 3 2021 lúc 12:47

uses crt;

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

i,max:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

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

end;

max:=a[1];

for i:=1 to 5 do 

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

writeln(max);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Linh Linh
Xem chi tiết
Vũ Minh Huy
Xem chi tiết
võ nguyên đức anh
Xem chi tiết
Biên Vi
Xem chi tiết
Thảo Vi
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Đoàn Phạm Phương Vy
Xem chi tiết
Uyên Phương
Xem chi tiết
Linh Nguyen
Xem chi tiết