$PASCAL$

program ct;

uses crt;

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

      i,n,S,max,min,K,d:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   write('Xuat day so: ');

   for i:=1 to n do

     write(A[i]:3);

     S:=0;

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong cac phan tu trong day la: ',S);

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

   for i:=1 to n do

     begin

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

        if A[i]<min then min :=A[i];

     end;

   writeln('Phan tu lon nhat la: ',max);

   writeln('Phan tu nho nhat la: ',min);

   writeln('Chi so nho nhat la: ',A[1]);

   writeln('Chi so lon nhat la: ',A[n]);

   writeln('Nhap so K: '); readln(K);

     d:=0;

   for i:=1 to n do

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

   write('Co ',d,' phan tu bang K');

readln;

end.

Học tốt!

#include<bits/stdc++.h>

using namespace std;

int main()

{

       \*

       Ban quyen: iusenoname

       Van de reup: Lien he iusenoname

       Ngon ngu: c++

       *\

       int n,sum=0,be,lon,k,ptbk=0;

       cin>>n; // nhập số phần từ của dãy

       cin>>k; // nhap k

       int A[n];

       for(int i=0;i<n;i++)

       {

              cin>>A[i]; //Nhập dãy số

       }

       be=A[0];

       lon=A[0];

       for(int i=0;i<n;i++)

       {

              cout<<A[i]<<" "; //Xuất dãy số

              sum+=A[i]; // tính tổng dãy

              if(be>A[i])

              {

                     be=A[i];

              }

              if(lon<A[i])

              {

                     lon=A[i];

              }

              if(A[i]==K)

              {

                     ptbk+=1;

              }

       }

       cout<<sum; // in tong day

       cout<<be; // in so be

       cout<<lon; // in so lon

       cout<<ptbk; // in so phan tu bang k;

}

Sai thì bình luận nha để mình sửa, tại bạn không nói ngôn ngữ gì nên mình làm c++ nha.