viết phương trình tạo mảng số nguyên tối đa 50 phần tử, mỗi giá trị có giá trị tuyệt đối không quá 100. tính tổng các giá trị tại vị trí chẵn trong đây

Program FNG;
Uses crt;
Var A: array[1..50] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If i mod 2 = 0 then s:=s+A[i];
        End;
        Write('S = ',s);
        Readln
End.

Program hotrotinhoc_hoc24;

var i,n,min: integer;

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

begin

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

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

min:=32000;

for i:=1 to n do

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

write('Chi so cua gia tri nho nhat la :');

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

writeln;

writeln('Gia tri nho nhat la : ',min);

readln

end.

chúc bạn hok tốt