NT

Viết chương trình dùng biến mảng để nhập dãy số n từ bàn phím và in ra giá trị lớn nhất và giá trị nhỏ nhất của dãy số đó

Mai mình thi rồi!!!Giúp mình vs!!!!!

NT
9 tháng 5 2021 lúc 20:20

uses crt;

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

i,n,max,min: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];

min:=a[1];

for i:=1 to n do 

  begin

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

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

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Bình luận (0)

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