program baigiai;

uses crt;

var A:array[1..100] of integer;

      n,i,d,vtmax,vtmin:byte;

      max,min:integer;

      t:longint;

begin

     clrscr;

     write('Nhap k: ');   readln(k);

     write('Nhap so luong phan tu n: ');   readln(n);

     write('Nhap so thu 1: ');  readln(A[1]);

     max:=A[1];   vtmax:=1;  min:=A[1];   vtmin:=A[1];

     d:=0;  t:=0;

     for i:=2 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(n);

               if A[i]>=max then

                    begin

                         max:=A[i];

                         vtmax:=i;

                    end;

               if A[i]<min then 

                    begin

                         min:=A[i];

                         vtmin:=i;

                    end;

               if i mod 2=0 then t:=t+A[i]*A[i];

               if A[i]=k then d:=d+1;

          end;

     writeln('a. Gia tri lon nhat la ',max,', voi vi tri lon nhat la ',vtmax);

     writeln('b. Gia tri nho nhat la ',min,', voi vi tri nho nhat la ',vtmin);

     writeln('c. Tong binh phuong cac gia tri o vi tri chan la: ',t);

     writeln('d. Trong mang co ',d,' gia tri  bang k');

     readln;

end.

uses crt; var a,b,c:array[1..100]of integer; k,i,n,max,min,dem,dem1,tam,j,dem2,t:integer; begin clrscr; write('n='); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; write('nhap k='); readln(k); {-------------------------------cau-a--------------------------} max:=a[1]; for i:=1 to n do if max<a[i] then max:=a[i]; writeln('gia tri lon nhat cua mang la: ',max); dem:=0; for i:=1 to n do if max=a[i] then begin inc(dem); b[dem]:=i; end; writeln('vi tri cua no lan luot la:'); for i:=1 to dem do write(b[i]:4); {-----------------------------cau-b--------------------------} writeln; min:=a[1]; for i:=1 to n do if min>a[i] then min:=a[i]; writeln('gia tri nho nhat cua mang la: ',min); dem1:=0; for i:=1 to n do if min=a[i] then begin inc(dem1); c[dem1]:=i; end; writeln('vi tri cua no lan luot la:'); for i:=1 to dem1 do write(c[i]:4); {--------------------------cau-c------------------------} writeln; t:=0; for i:=1 to n do if i mod 2=0 then t:=t+sqr(a[i]); writeln('tong binh phuong cac phan tu o vi tri chan la: ',t); {------------------------cau-d-------------------------------} writeln('mang duoc sap xep tang dan la: '); for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i:=1 to n do write(a[i]:4); {------------------------cau-e-----------------------} writeln; dem2:=0; for i:=1 to n do if a[i]=k then inc(dem2); writeln('so gia tri bang ',k,' trong day la: ',dem2); readln; end.