Составьте алгоритм увеличение четного числа x на 5, а нечетного числа -уменьшается в 5 раз

1.  var a: array [1..10] of integer; i, sum, k: integer; begin for i: =1 to 5 do read(a[i]); sum: =0; k: =0; for i: =1 to n div 2 do sum: =sum+a[i]; k: =k+1; writeln('среднее арифметическое первой части=', sum/k); sum: =0; k: =0; for i: =5 to 10  do sum: =sum+a[i]; k: =k+1; writeln('среднее арифметическое второй  части=', sum/k); end. 2. const: n={количество элементов массива};   var a: array [1..n] of integer; i, sum, k: integer; begin for i: =1 to n do read(a[i]); sum: =0; k: =0; for i: =1 to (n div 2)  do sum: =sum+a[i]; k: =k+1; writeln('среднее арифметическое первой части=', sum/k); sum: =0; k: =0; for i: =(n div 2)  to n  do sum: =sum+a[i]; k: =k+1; writeln('среднее арифметическое второй  части=', sum/k); end.  

// вот тебе первая у меня qbasic   не хочет с буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia

 

 

clslet a$ = "algoritmizacia"print a$print (left$(a$, 8))print (mid$(a$, 5, 4))print (mid$(a$, 3, 3)) + (mid$(a$, 11, 1))print (mid$(a$, 5, 1)) + (right$(a$, 4))print (mid$(a$, 10, 1)) + (mid$(a$, 9, 1)) + (mid$(a$, 8, 1)) + (mid$(a$, 1, 1))end

 

// вторая

clsprint "vvedite 1 slovo "input a$print "vvedite 2 slovo "input b$print "vvedite 3 slovo "input c$x = len(a$)y = len(b$)z = len(c$)if (x > y) and (x > z) then print " pervoe slovo samoe dlinnoe"if (y > x) and (y > z) then print "vtoroe slovo samoe dlinnoe"if (z > x) and (z > y) then print "tretie slovo samoe dlinnoe"end