viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MNG GIÚP MIK !!!
viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MN
By Eva
program ct;
uses crt;
var i,n,Max,Min:integer;
A:array[1..50] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang 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(‘gia tri lon nhat la’,Max);
writeln(‘gia tri nho nhat la’,Min);
readln
end.
uses crt;
var n,i,max,min:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘Nhap so n: ‘);readln(n);
min:=high(longint);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
if a[i]>max then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(‘So lon nhat: ‘,max);
writeln(‘So nho nhat: ‘,min);
readln
end.