Отчет по практике: Язык программирования Pascal

writeln ('1-вычислить среднее гео-ое четных эл. мас');

writeln ('2-найти ко-во делителей max числа');

writeln ('3-вставить в массив: 1-ый после min эл,2-ой перед min эл');

readln (m);

case m of

1: begin f: =0;

for i: =1 to n do

begin

if a [i] mod 2=0 then f: =f+1

end; writeln (f);

d: =1; s: =0;

for i: =1 to n do

begin

if a [i] mod 2=0 then d: =d*a [i] ;

end;

writeln (d);

if d=0 then s: =0 else s: =exp (1/f * ln (d));

writeln ('ср. геом=',S: 3: 3);

readln;

end;

2: begin

max: =a [1] ;

for i: =1 to n do

if a [i] >max then begin max: =a [i] ;

end;

for i: =1 to max do

if max mod i=0 then k: =k+1;

writeln ('ко-во делителей max числа',k);

readln;