1.

program Tin_hoc;

uses crt;

var i,n,min,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen duong:');

for i:=1 to n do begin

write('a[',i,']: ');

readln(a[i])

end;

min:=a[1];k:=1;

for i:= 1 to n do if a[i] < min then begin min:= a[i]; k:=i end;

write('So nho nhat la ',min,' va o vi tri thu ',k);

readln;

end.

Bài 2:

program t;

uses crt;

var i,n,max,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen:');

for i:= 1 to n do readln(a[i]);

k:=0;

for i:= 1 to n do if a[i]<0 then begin k:=i; max:=a[i] end;

for i:= 1 to n do if (a[i]<0) and (a[i]>max) then begin k:=i; max:=a[i] end;

if k=0 then writeln('Khong co so hang am') else

writeln('So hang am lon nhat la ',max,' va chi so cua no la ',k);

readln;

end.

Bài 3:

program t;

uses crt;

var i,n,min,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen:');

for i:= 1 to n do readln(a[i]);

k:=0;

for i:= 1 to n do if a[i]>=0 then begin k:=i; min:=a[i] end;

for i:= 1 to n do if (a[i]>=0) and (a[i]<min) then begin k:=i; min:=a[i] end;

If k=0 then writeln('Khong co so hang duong') else

writeln('So hang duong lon nhat la ',min,' va chi so cua no la ',k);

readln;

end.

Bài 1:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,min,vtmin: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        min:=A[1]; vtmin:=1;
       
        For i:=1 to n do
                If A[i]>min then
                Begin
                        min:=A[i];
                        vtmin:=i;
                End;

        Writeln('Min: A[',vtmin,'] = ',min);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,max,vtmax: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1]; vtmax:=1;
       
        For i:=1 to n do
                If (A[i]>max) and (A[i]<0) then
                Begin
                        max:=A[i];
                        vtmax:=i;
                End;

        Writeln('Max: A[',vtmax,'] = ',max);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,min,vtmin: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        min:=A[1]; vtmin:=1;

        For i:=1 to n do
                If (A[i]<min) and (A[i]>0) then
                Begin
                        min:=A[i];
                        vtmin:=i;
                End;
        Write('Min: A[',vtmin,'] = ',min);

        Readln
End.