2
var a:array[1..100] of integer; 
i,k,n:integer; 
begin 
readln(n); k:=0; 
for i:=1 to n do begin 
readln(a[i]); 
if a[i]>k then k:=a[i]; 
end; 
writeln(k); 
for i:=1 to n do if a[i]=k then write(i,#32); 
readln 
end.

3
+code: 
//chuong trinh viet ham tim so lon nhat va nho nhat 
#include<stdio.h> 
#include<conio.h> 
//ham tim max 
int max(int a[100],int n) 
{ 
int m=a[1]; 
for(int i=2;i<=n;i++) 
if(m<a[i]) m=a[i]; 
return m; 
} 
//ham tim min 
int min(int a[100],int n) 
{ 
int m=a[1]; 
for(int i=2;i<=n;i++) 
if(m>a[i]) m=a[i]; 
return m; 
} 
int main() 
{ 
int a[100],n,i; 
printf("nhap so phan tu cua mang vao:n=");scanf("%d",&n); 
for(i=1;i<=n;i++) 
{ 
printf("a[%d]=",i); 
scanf("%d",&a[i]); 
} 
printf("\n gia tri lon nhat la:%d",max(a,n)); 
printf(" \n gia tri nho nhat la:%d",min(a,n)); 
getch(); 
return 0; 
}

bài 3 còn cách viết khác k b..tin 11 chua học tới đó b