ПОМОГИТЕ ПОЖАЛУЙСТА ДО ЗАВТРА ОЧЕНЬ НАДО!! !!!!!!!!!!!!!!!!!

1.var a:array [1..10] of integer;i,v:integer;beginfor i:=1 to 10 dobegina[i]:=random(17);write(a[i],' ')end;writeln;v:=a[1];for i:=2 to 10 do if a[i]>v then v:=a[i];writeln(v)end.2.var a:array [1..10] of integer;i,n,k:integer;beginfor i:=1 to 10 dobegina[i]:=random(5000)+15000;write(a[i],' ')end;writeln;n:=a[1];for i:=2 to 10 do if a[i]<n then n:=a[i];for i:=1 to 10 dobeginif a[i]=n thenbegink:=i;a[i]:=n*3;end;write(a[i],' ')end;writeln;writeln(k)end.