Các chương trình Pascal về mảng Array

Câu 1: Viết chương trình nhập vào một dãy số và in ra máy tính:

-        Số lớn nhất. (Max)

-        Số nhỏ nhất. (Min)

Program Tim_Max_Min;

uses crt;

Var i, j: integer;

Var n: integer;

Var A: array [1..1000] of real;

Var Max, Min: real;

Begin

clrscr;

Writeln('Hay nhap vao so n so cua day so');

Readln(n);

For i:=1 to n Do

  Begin

    Writeln('Hay nhap gia tri cho phan tu thu', i);

    Readln(A[i]);

  End;

Max:= A[1];

Min:= A[1];

For j:=1 to n Do

 Begin

    If Max < A[j] then  Max:=A[j];

    If Min > A[j] then Min:=A[j];

 End;

 Writeln ('Gia tri lon nhat trong day so la ', Max);

 Writeln ('Gia tri nho nhat cua day so la ', Min);

 Readln;

End.

Câu 2:

Viết chương trình nhập vào n số và in ra giá trị trung bình của các số đó.

Program TB_n_songuyen;

Uses crt;

Var i: integer;

Var j: integer;

Var n: integer;

Var A: array [1..1000] of real;

Var Tong: real;

Var TB: real;

Begin

    clrscr;

    Tong:=0;

    TB:=0;

    Writeln;

    Writeln('Vui long nhap vao so n so bat ky');

    Readln(n);

    For i:=1 To n Do

     Begin

      Writeln('Nhap gia tri cho so thu ', i);

      Readln(A[i]);

     End;

    For j:=1 To n Do

      Tong:= Tong + A[j];

    TB:= Tong/n;

    Writeln('Gia tri trung binh cua n so nguyen la ', TB);

    Readln;

End.

Câu 3: Viết đoạn chương trình nhập vào một mảng gồm n phần tử. Sau đó in ra màn hình các phần tử đã nhập.

Program Nhap_Xuat_Mang_n_Phan_Tu;

Uses crt;

Var i: integer;

Var j: integer;

Var n: integer;

Var A: array [1..1000] of real;

Begin

    clrscr;

    Writeln;

    Writeln('Vui long nhap so phan tu cho mang n= ');

    Read(n);

    For i:=1 To n Do

     Begin

      Writeln('Nhap gia tri cho phan tu thu ',i);

      Readln(A[i]);

     End;

    For j:=1 To n Do

     Begin

      Writeln('Gia tri cua phan tu thu ',j);

      Writeln(A[j]);

     End;

    Readln;

End.