Массивы, среднее арифетическое Опции

[Kaliban]

Народ, помогите плиз, из полного бреда сделать рабочую прогу

В массивах R1..R8, T1..T6 найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов (среди обоих массивов).
Заменить последние элементы в массивах на максимальное среднее арифметическое.

использовать процедуру нада еще

 1.rar ( 523 байт ) Кол-во скачиваний: 334


Сообщение отредактировано: Kaliban - 26.06.2007 13:58

[мисс_граффити]

function Positive(const r:real):boolean;//проверяет является ли число положительным
begin
  Positive:=(r>=0);
end;