1.Viết chương trình tìm giá trị lớn nhất của dãy số nhập vào từ bàn phím (sử dụng biến mảng)
2.Viết chương trình tìm giá trị nhỏ nhất của dãy số nhập vào từ bàn phím (sử dụng biến mảng)
1.Viết chương trình tìm giá trị lớn nhất của dãy số nhập vào từ bàn phím (sử dụng biến mảng)
2.Viết chương trình tìm giá trị nhỏ nhất của dãy số nhập vào từ bàn phím (sử dụng biến mảng)
$C1$
program C1;
uses crt;
var A:array [1..500] of integer;
n,i,max: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘);
max:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]’=’); readln(A[i]);
if max<A[i] then max:=A[i]l
end;
write(‘Gia tri lon nhat: ‘,max);
readln
End.
$C2$
program C2;
uses crt;
var A:array [1..500] of integer;
n,i,min: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘);
min:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]’=’); readln(A[i]);
if min>A[i] then min:=A[i]l
end;
write(‘Gia tri nho nhat: ‘,min);
readln
End.
1.
program cau1;
uses crt ;
var i,n,Max:integer;
A:array [1..500] of integer;
Begin
writeln(‘nhap so phan tu ‘);
readln(n);
For i:=1 to n do
begin
writeln(‘nhap gia tri thu ‘,i);readln(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]> Max then Max:=A[i];
write(‘gia tri lon nhat la:’,A[i]);
readln
end.
1.
program cau2;
uses crt ;
var i,n,Min:integer;
A:array [1..500] of integer;
Begin
writeln(‘nhap so phan tu ‘);
readln(n);
For i:=1 to n do
begin
writeln(‘nhap gia tri thu ‘,i);readln(A[i]);
end;
Min:=A[1];
for i:=2 to n do
if A[i]< Min then Min:=A[i];
write(‘gia tri nho nhat la:’,A[i]);
readln
end.