HL

Sử dụng biến mảng để viết chương trình nhập vào một dãy sô gồm N số nguyên tử bàn phím in ra màn hình giá trị lớn nhất của dãy số đó.

NT
7 tháng 5 2021 lúc 22:02

uses crt;

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

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln(max);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
HM
Xem chi tiết
HL
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
LD
Xem chi tiết
PA
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
TD
Xem chi tiết