Viết chương trình tìm giá trị lớn nhất nhỏ nhất của dãy n số được nhập từ bàn phím?
# giúp vs ạ mai kt r ????????
Viết chương trình tìm giá trị lớn nhất nhỏ nhất của dãy n số được nhập từ bàn phím?
# giúp vs ạ mai kt r ????????
Program Cau2;
Uses crt;
Var i,n,max,min: integer;
a: array[1..100] of integer;
Begin
Clrscr; Write(‘ Nhap do dai cua day so, n= ‘);
Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘);
For i:= 1 to n do
Begin
Write(‘a[‘, i, ‘]= ‘);
Readln(a[i]);
End;
max:= a[1];
min:= a[1];
For i:= 2 to n do
Begin If max < a[i] then max:= a[i];
If min > a[i] then min:= a[i];
End;
Writeln(‘So lon nhat la max= ‘, max);
Writeln(‘So nho nhat la min= ‘, min);
Readln;
End.
@ xin hay nhất ạ ????????
program BT;
uses crt;
var A:array [1..500] of integer;
n,i,max,min: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
end;
writeln(‘So lon nhat trong ‘,n,’ so vua nhap la: ‘,max);
write(‘So nho nhat trong ‘,n,’ so vua nhap la: ‘,min);
readln
End.