C1 

Để nhập phần tử A1 từ bàn phím ta dùng lệnh For..do

C2

Để nhập phần tử A2 từ bàn phím ta dùng lệnh For..do

Câu 1: Ta dùng lệnh:

Writeln('A1='); Readln(A[1]);

Câu 2: Ta dùng lệnh:

Writeln('A2='); Readln(A[2]);

Câu 3: Cần viết lặp lại N lần như vậy

Câu 4: Bằng lệnh lặp với số lần biết trước

For i:=1 to N do 

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     End;

Câu 5: 

For i:=1 to N do Writeln(A[i]);

Câu 6:

Program baitap;

Uses crt;

Var A:array[1..250] of integer;

      N,i,max,x:integer;

Begin

Clrscr;

Write('N='); Readln(N);

For i:=1 to N do

     Begin

     Write('A[',i,']='); 

     Readln(A[i]);

     End;

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

For i:=2 to N do

     If A[i]>max then

        Begin

        max:=A[i];

        x:=i;

        End;

Writeln('Chi so phan tu lon nhat:',x);

Writeln('Gia tri phan tu lon nhat:',max);

Readln

End.

_______________________________________

Chạy chương trình theo đề(hình dưới)