viết ct nhập mảng a gồm n phần tử . a.xuất số lớn thứ 2 và vị trí của nó trong mảng b.xuất số nhỏ thứ 2 và vị trí của nó trong mảng

0 bình luận về “viết ct nhập mảng a gồm n phần tử . a.xuất số lớn thứ 2 và vị trí của nó trong mảng b.xuất số nhỏ thứ 2 và vị trí của nó trong mảng”

1. var i,n,j,tg:longint;

   a:array[0..1000]of longint;

   begin

   read(n);

   for i:=1 to n do

   read(a[i]);

   for i:=1 to n-1 do

   for j=i+1 to n do

   if a[i]<a[j] then begin

   tg:=a[i]; a[i]:=a[j]; a[j]:=tg;

   end;

   writeln(‘a/ ‘,a[2]);

   writeln (‘b/ ‘,a[n-1]);

   readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array[1..100] of integer;
       i,j,tg,n: 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;
       for i:=1 to n-1 do
           for j:=i+1 to n do
               if a[i]<a[j] then
                   begin
                       tg:=a[i];
                       a[i]:=a[j];
                       a[j]:=tg;
                   end;
       writeln(‘phan tu lon thu 2: ‘,a[2]);
       for i:=1 to n-1 do
           for j:=i+1 to n do
               if a[i]>a[j] then
                   begin
                       tg:=a[i];
                       a[i]:=a[j];
                       a[j]:=tg;
                   end;
       writeln(‘Phan tu nho thu 2: ‘,a[2]);
       readln;
   end.

   Bình luận