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

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.