Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình số có giá trị nhỏ nhất, số có giá trị lớn nhất
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình số có giá trị nhỏ nhất, số có giá trị lớn nhất
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,max,min: integer;
Begin
clrscr;
write(‘Nhap do dai day: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Day sau khi nhap: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
max:=1; min:=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: ‘,max);
writeln(‘Gia tri nho nhat: ‘,min);
readln
End.
var n,i,k,j,s,max,min:longint;
a:array [1..100] of integer;
begin
write(‘nhap n pt’);readln(n); max:=0; min:=111111;
for i:=1 to n do
begin
write(‘pt thu’,i);readln(a[i]);
if a[i]>max then max:=a[i];
ì a[i]>min then min:=a[i];
end;
write(max,min);
readln
end.