bài 1

program bt;

ues crt;

var i,n:integer;

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

begin clrscr;

Writeln('nhap n');

readln(n);

for i:=1 to n do

begin

writeln('a[',i,']=');

readln(a[i]);

end;

readln;

end.

bai 2

Đoạn đầu làm tương tự phần trên và bạn cần thêm biến max :integer ở phần khai báo nữa ....

........

readln(a[i]);

end;

max:=a[1];

for i:=1 to n do if max>a[i] then max:=a[i];

writeln(max);

readln;

end.

bài 3

làm tương tự bài 2 thay max=min và max>a[i] thành min<a[i];

bài 4

uses crt;

var i,n,t :integer;

tb:real;

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

begin clrscr;

t:=0;tb:=0;

readln(n);

for i to n do 

begin

writeln('a[',i,']=');

readln(a[i]);

end;

for i := 1 to n do

t:=t+a[i];

tb:=tb+t/n;

writeln(tb:4:1);

readln;

end.

Hướng dẫn trả lời:

Bài 1:

Program So_phan_tu;

Uses crt;

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

      N,i : integer;

Begin

Clrscr;

Write('nhap so phan tu cua mang: '); readln(N);

For i:=1 to N do

  Begin

   Write('Nhap gia tri cua mang a[',i,']: '); readln(a[i]);

  End;

For i:=1 to N do

  Writeln ('Gia tri cua mang thu ',i,' la: ',a[i]);

readln;

End.

Bài 2:

Program So_lon_nhat;

Uses crt;

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

  max : real;

    i,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;

max:=0;

For i:=1 to N do

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

Writeln('So lon nhat la: ',max);

Readln;

End.

Bài 3:

Program So_nho_nhat;

Uses crt;

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

  min : real;

    i,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;

max:=0;

For i:=1 to N do

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

Writeln('So nho nhat la: ',min);

Readln;

End.

Bài 4:

Program So_trung_binh;

Uses Crt;

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

     TB : real;

     n,i : integer;

Begin

     Clrscr;

     Write ('Nhap so phan tu cua mang: ');

     Read (n);

     TB:=0;

     For i :=1 to n do

          Begin

               Write ('Nhap gia tri mang thu ',i,': ');

               Read (a[i]);

               TB:=TB+a[i];

          End;

     TB:=TB/n;

     Writeln ('gia tri trung binh cu ',n,' mang là: ',TB:2:1);

readln;

End.