1. Дан одноименный массив А. Определить среднее арифметическое положительных и четных элементов больших 6.

2. Дан одноименный массив размером N. Получить значение следующего выражения: макс*2/Nмакс (удвоенное значение максимального элемента поделить на его порядковый номер).

1)

var

n, i, c, sum, sum2, c2: integer;

a: array of integer;

begin

sum : = 0;

sum2 : = 0;

c2 : = 0;

c : = 0;

readln (n) ;

setlength (a, n) ;

for i : = 0 to n - 1 do

begin

read (a[i]) ;

if (a[i] > 0) and (a[i] > 6) then

begin

sum : = sum + a[i];

c : = c + 1;

end;

if (a[i] mod 2 = 0) and (a[i] > 6) then

begin

sum2 : = sum2 + a[i];

c2 : = c2 + 1;

end;

end;

writeln (sum / c) ;

write (sum2 / c2) ;

end.

2)

var

n, i, max, im: integer;

a: array of integer;

begin

im : = 1;

readln (n) ;

setlength (a, n) ;

for i : = 0 to n - 1 do

begin

read (a[i]) ; if (i = 1) then max : = a[0];

if (a[i] > max) then

begin

max : = a[i];

im : = i + 1;

end;

end;

write ((max * 2) / im) ;

end.