Задачи на обработку одномерных массивов (помогите решить все на паскале )

[Жаннулька]

16. Написать программу, которая вводит элементы массива из n чисел, переставляет элементы массива так, чтобы первым элементом массива стал максимальный элемент, а затем выводит элементы преобразованного массива на одну строку экрана.
--- --- --- --- --- --- --- --- --- --- --- --- ---
17. Написать программу, которая вводит элементы массива из n чисел, выводит элементы массива на одну строку экрана, а затем вычисляет количество минимальных положительных элементов.
--- --- --- --- --- --- --- --- --- --- --- --- ---
18. Написать программу, которая вводит элементы массива из n чисел, выводит элементы массива на одну строку экрана, а затем вычисляет количество четных положительных элементов.

19. Написать программу, которая вводит элементы массива из n чисел и вычисляет сумму тех элементов, которые отличаются от среденого арифметического всех элементов не более чем на 1.

[BDA]

Что уже получилось? Какие наработки? Что конкретно не получается?

[Poma][a]

№19..
А можно за один проход?

[Жаннулька]

да все не получается...а на завтра это надо

[BDA]

Poma][a, пока все элементы не введены, мы не знаем среднего арифметического и не можем принять решения о суммировании текущего элемента. Можно считать все возможные суммы из уже введенных элементов или рекурсивно вводить элементы, а при выходе из рекурсии считать сумму, но это только усложнит, на мой взгляд, задачу и не даст никакого профита.
Жаннулька, Вы можете ввести массив из n элементов? Это как раз основа для всех четырех программ (считай 50% от каждой сделано будет ). Докажите, что не зря пошли на физмат

[Poma][a]

но это только усложнит, на мой взгляд, задачу

в этом и фишка.. Спасибо за идею..

[VIK_aka_TOR]

19.

var  s,sr : integer;
procedure sredn(n, k: integer; var sum,sred :integer);
var c : integer;
begin
  write( ' k[',n,'] = ' );  readln(c);
  sum := sum +c;
  if n < k then  sredn(n + 1, k, sum,sred)
  else 
    begin
      sred := sum;  
      sum := 0;
    end;
  if (c >= sred / k - 1) and (c <= sred/k + 1) then  sum := sum + c;
  if n = 1 then  writeln ('summa = ',sum);
end;
begin
  s := 0;  sr := 0;
  sredn(1,5,s,sr); //первый параметр изначально 1 по умолчанию, второй - количество элементов
end.

если у кого будут идеи как оптимизировать - буду рад выслушать, попытаюсь еще через функции покрасивше сделать что-либо...

[Poma][a]

http://ideone.com/wEQWZp

[VIK_aka_TOR]

Сообщение от Poma][a

http://ideone.com/wEQWZp

откомпилил на компе, все норм:

k[1] = 1
k[2] = 1000
k[3] = 1000
k[4] = 1000
k[5] = 3
summa = 0

upd
нашел причину, http://ideone.com/5SZFAR , ввод не в строчку, а "столбик"... т.к. readln стояло)))

upd2
http://ideone.com/7RCBC2 вродь все работает, тут среднее 5.5, в итоге сумма из 5 и 6...

[Аватар]

Вот ТС обрадуется - есть решение для одной из задач, которое ТС в жизни не поймет, да и самим авторам через месяц нужно будет усилия приложить, что бы понять - а что же они наваяли