Viết chương trinh nhập vào dãy số tìm số lớn nhất,nhỏ nhất cùng vị trí của chúng

0 bình luận về “Viết chương trinh nhập vào dãy số tìm số lớn nhất,nhỏ nhất cùng vị trí của chúng”

1. program oken;
   uses crt;
   var a: array [1..1000] of integer;
       n,max,vtmax,min,vtmin,i: integer;
   begin   
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       for i:=1 to n do
           begin
               write(‘a[‘,i,’]: ‘); readln(a[i]);
           end;
       max:=a[1]; min:=a[1]; vtmax:=1; vtmin:=1;
       for i:=2 to n do
           if max<a[i] then
               begin
                   max:=a[i];
                   vtmax:=i;
               end
           else
               if min>a[i] then
                   begin
                       min:=a[i];
                       vtmin:=i;
                   end;
       writeln(‘So lon nhat: ‘,max,’  Vi tri: ‘,vtmax);
       writeln(‘So nho nhat: ‘,min,’  Vi tri: ‘,vtmin);
       readln;
   end.

   Bình luận

2. Program Vandat13012006;
   uses crt;
   var a : array[1..1000] of integer;
   n,i,vt1,vt2 : integer;
   min,max : integer;
   begin clrscr;
   vt1:=0; vt2:=0;
   write(‘Nhap so phan tu cua mang :’); readln(n);
   for i:=1 to n do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]); end;
   min :=a[i];
   max:=a[1];
   for i:=2 to n do
   if a[i] > max then begin
   max:=a[i];
   vt1:=i;
   end;
   for i:=2 to n do
   if a[i]<min then begin
   min :=a[i];
   vt2:=i;
   end;
   writeln(‘Gia tri lon nhat la :’, max,’tai vi tri’,vt1);
   write(‘Gia tri nho nhat la :’, min,’tai vi tri’,vt2);
   readln
   end.

   Bình luận