Viết chương trình nhập ngẫu nhiên một màng n phần tử. In ra mảng và các phần tử ở vị trí chẵn

uses crt;

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

begin

clrscr; randomize;

write('Nhap so phan tu : '); readln(N);

for i := 1 to N do

begin

A[i] := random(20) - random(20);

writeln('Phan tu thu ', i ,' : ', A[i]);

end;

write('Phan tu vi tri chan : ');

for i := 1 to N do

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

readln

end.

Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
        clrscr;
        Writeln('Nhap gia tri cho mang A');
        For i:=1 to 10 do 
        Begin
                Write('A[‘,i,’] = ');
                Readln(A[i]); { đọc vào giá trị cho A thứ i}
        End;
        Write('Danh sach cac phan tu trong mang A: ');
        For i:=1 to 10 do
                Write(A[i]:5);
        Readln;
End.