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 Cora
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.