1)

program trung_binh;

uses crt;

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

     n,i,t:integer;

begin

      clrscr;

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

      t:=0;

      for i:=1 to n do

            begin

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

                  t:=t+A[i];

            end;

      write('Trung binh cong la: ',t/n:0:2);

      readln;

end.

2)

program min)max;

uses crt;

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

     n,i,min,max:integer;

begin

      clrscr;

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

      for i:=1 to n do

            begin

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

            end;

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

      for i:=2 to n do

            begin

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

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

            end;

      writeln('Min la: ',min);

      writeln('Max la: ',max);

      readln;

end.

Câu 1: chương trình tính số trung bình cộng

#include <cstdlib>

#include <iostream>

using namespace std;

double avg(int arr[],int size){ //khong xac dinh kich co mang giua hai dau [ va ]

int sum=0;

double r;

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

sum+=arr[i];

r=(double)sum/size;

return(r);

}

int main(){

int n;

cout<<"Nhap so cac so nguyen:";

cin>>n;

int arr[n];

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

cout<<"Gia tri "<<i+1<<": ";

cin>>arr[i];

}

cout<<"Gia tri trung binh="<<avg(arr,n)<<endl; //chi dat ten cho mang khi ham duoc goi return 0; }

Câu 2 : chương trình tìm MinMax 

Program Cau2;

Uses crt;

Var i,n,max,min: integer;

a: array[1..100] of integer;

Begin

Clrscr;

Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n);

Writeln(‘Nhap cac phan tu cua day so: ‘);

For i:= 1 to n do

Begin

Write(‘a[‘, i, ‘]= ‘);

Readln(a[i]);

End;

max:= a[1];

min:= a[1];

For i:= 2 to n do

Begin

If max < a[i] then max:= a[i];

If min > a[i] then min:= a[i];

End;

Writeln(‘So lon nhat la max= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

Nhớ cho minmochi880 ctlhn nhoa~