Câu 3:

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

    i,max,min,n: integer;

begin

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

    for i:=1 to n do

      begin

          write('a[',i,']: ');

          readln(a[i]);

      end;

    for i := 1 to n do write(a[i],'   ');

    writeln;

    max := a[1];

    for i:=2 to n do

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

    writeln('So lon nhat trong mang: ',max);

   min := a[1]; 

   for i:=2 to n do

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

   writeln('So nho nhat trong mang: ',min);

   write('cac so chan trong mang: ');

   for i:=1 to n do

     if a[i] mod 2 = 0 then write(a[i],' ');

   writeln; 

   write('cac so chia het cho 7 trong mang: ');

   for i:=1 to n do

     if a[i] mod 7 = 0 then write(a[i],' '); 

     readln;

 end.

Câu 4:

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

    i,n,s: integer;

    tbc: real;

begin

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

    for i:=1 to n do

      begin

          write('a[',i,']: ');

          readln(a[i]);

      end;

    for i := 1 to n do write(a[i],'     ');

    writeln;

    for i:=1 to n do

      s   := s+a[i];

    tbc := s/n;

    writeln('TBC: ',tbc:6:2);

    write('Cac phan tu nho hon tbc: ');

    for i:=1 to n do

      if a[i]<tbc then write(a[i],' ');

    readln;

end.

PHẦN 1:

CÂU 1:

cấu trúc câu lệnh lặp với số lần biết trước là:

   FOR <biến điếm>:=<giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;

*hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước bằng giá trị cuối - giá trị sau+1. Khi thực hiện, ban đầu biến điếm sẽ nhận giá trị bằng giá trị đầu, mỗi vòng lặp, biến được tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.

*cấu trúc câu lệnh lặp với số lần chưa biết trước là:

   While <điều kiện> do <câu lệnh>;

*hoạt động:

B1: kiểm tra điều kiện

B2:Nếu điều kiện Sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp sẽ kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.

CÂU 2:cấu trúc khai báo biến mảng:

      Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Trong đó chỉ số đầu và chỉ số dưới là hai số nguyên thảo mãn chỉ số đầu <= chỉ số dưới và kiểu dữ liệu có thể là integer hoặc real.

Câu 3:

program ct;

uses crt;

var i,n,Max:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,'];=');readln(A[i]);

end;

writeln;

write('day so vua nhap la:');

for i:=1 to n do

write(A[i]:3);

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);

writeln('so nho nhat la',Min);

for i:=1 to n do

if A[i] mod 2=0 then writeln('cac so chan la:',A[i]:2);

if A[i] mod 7=0 then writeln('cac so chia het cho 7:',A[i]:2)

readln

end.

Câu 4:

program ct;

uses crt;

var i,n,s:integer; tb:real;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,'];=');readln(A[i]);

end;

writeln;

write('day so vua nhap la:');

for i:=1 to n do

write(A[i]:5);

s:=0;

for i:=1 to n do

s:=s+A[i];

tb:=s/n;

writeln('gia tri trung binh cua day la:',tb:2);

for i:=1 to n do

if A[i]<tb then writeln('gia tri nho hon trung binh cong la:',A[i]:3)

readln

end.