Фрагмент программы на паскале, выполненный для значений элементов массива а равных, соответственно, а[1]= 9; а[2]= 4; а[3]= 7; а[4]= 10; а[5]= 2; а[6]= 11 m : = a[1]; for i: = 2 to 5 do if a[i] > m then m : = a[i]; writeln ( m ); выведет число ……………………….

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919 

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.