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.
