Нужно поменять местами элементы массива(1-5, 2-6, 3-7, 4-
чтоб работало при любом значении длинны массива.
на любом языке( желательно на с или с++)

1) Считаем среднее значение от 100 тетрадей на пятерых человек:
100:5=40 (по 40 тетрадей приходится на каждого)
2) Предполагаем, что значение Коли верно, тогда:
Вася: 52-20=32
Юра: 43-32=11
Саша: 34-11=23
Серёжа: 30-23=7
3) Теперь считаем общее колличество получившихся тетрадей:
20+32+11+23+7=93
Напоминаю, что должно получится 100, следовательно 7 тетрадей не хватает. Именно их мы и должны прибавить. Осталось только понять куда.
4) Начнём с начала. Прибавляем эти 7 тетрадей к Коле:
20+7=27 - Коля. Тогда:
Чтобы узнать, сколько тетрадей у Васи, вычтем из 52(общее кол-во тетрадей Коли и Васи) кол-во тетрадей Коли:
52-27=25 - Вася.
Так же считаем и остальных. Получаем:
Юра: 43-25=18 тетрадей
Саша: 34-18= 16 тетрадей
Серёжа: 30- 16= 14 тетрадей

ОТВЕТ: Коля - 27, Вася - 25, Юра - 18, Саша - 16, Серёжа - 14 тетрадей =)

//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.