Giải giúp mình đề cương

Câu 17 :

- Cú pháp khai báo : Var <tên biến mảng> : array [<chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu>;

- Ví dụ : Var K : array [1 .. 200] of real;

Câu 18 :

uses crt;

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

    i, N, S : integer;

begin

clrscr;

write('N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do read(A[i]);

write('Day so vua nhap : ');

for i := 1 to N do

    begin

        write(A[i],' ');

        if A[i] > 0 then S := S + A[i];

    end;

writeln; write('Tong cac so am : ', S);

readln

end.