Vct Nhập vào một mảng (vd: nhập số lượng là 3), tìm tích lớn nhất của 3 số đấy

0 bình luận về “Vct Nhập vào một mảng (vd: nhập số lượng là 3), tìm tích lớn nhất của 3 số đấy”

1. program giaibt ;

   var a: array[1..32000] of integer;

   i,n,j,max,tg : integer;

   begin

   write(‘n=’); readln(n);

   writeln(‘Nhap gia tri cua cac phan tu’);

   for i:= 1 to n do

   begin

   write(‘a[‘,i,’]=’); readln(a[i]);

   end;

   Bình luận

2. program giaibt ;

   var a: array[1..32000] of integer;

   i,n,j,max,tg : integer;

   begin

   write(‘n=’); readln(n);

   writeln(‘Nhap gia tri cua cac phan tu’);

   for i:= 1 to n do

   begin

   write(‘a[‘,i,’]=’); readln(a[i]);

   end;

   max:=a[1];

   for i:=1 to n do

   if a[i]>max then max:=a[i];

   write(‘So lon nhat cua mang la :’,max);

   writeln;

   for i:= 1 to n-1 do

   for j:=1 to n do

   if a[i]>a[j] then

   begin

   tg:=a[i];

   a[i]:=a[j];

   a[j]:=tg;

   end;

   writeln(‘Mang sau khi sap xep theo thu tu tang dan la :’);

   for i:= 1 to n do write(a[i]:6);

   readln

   end.

   Bình luận