uses crt;

var a:array[1..100]of integer;

i,n,dem,s,s1,vt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

s:=1;

for i:=1 to n do 

  if a[i]=3 then 

begin

inc(dem);

s:=s*a[i];

end;

writeln('So phan tu bang 3 la: ',dem);

writeln('Tich cua chung la: ',s);

for i:=n downto 1 do 

  if a[i]<0 then 

begin

vt:=i;

break;

end;

if vt=0 then writeln('Trong day khong co so am')

else writeln('So am cuoi cung la: ',a[vt]);

s1:=1;

for i:=1 to n do 

  if (a[i] mod 3=0) or (a[i] mod 4=0) then s1:=s1*a[i];

writeln('Tich cac phan tu chia het cho 3 hoac 4 la: ',s1);

writeln('Cac so nguyen la: ');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Mình sẽ dùng 2 biến để lần lượt nhận giá trị của phần tử nhỏ nhất và vị trí của phần tử đó trong mảng.

Code

Program timmin;

Uses  crt;

Var a:array[1..100] of integer;

n,min,i,cs:integer;

BEGIN

clrscr;

Write('Nhap so luong ptu'); Readln(n);

For i:= 1 to n do begin

Write('a[',i,'] = '); Readln(a[i]);

end;

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

For i:=2 to n do if min > a[i] begin 

min:=a[i];

cs:=i;

end;

Write('Gia tri nho nhat cua mang a la: ',min,' Tai vi tri: ',cs);

readln;

END.