Типизированные файлы.

[maliyusha]

Пожалуйста, помогите решить задачу на Паскале или подкиньте алгоритм. Такой задачи нет в поиске и в книгах по программированию, кто чем может... <_<

Задача:
Создать файл из одномерных целочисленных массивов a1,a2,...,a10, заполненных числами от
–50 до 50. Переписать в другой типизированный файл те массивы, у которых сумма элементов >0.

[Dj_smart]

var
  f:file of array[1..10] of integer;

и

summ:=0;
for n:=1 to 10 do summ:=summ+elements[m].mas[n];
if suum>0 then ...

[Sazary]

Создаете ФАЙЛ1.
Создаете 10 массивов, заполняя их числами
Записываете массивы в ФАЙЛ1.
Создаете ФАЙЛ2.

Проходите в цикле по массивам.
С помощью внутреннего цикла считаете сумму текущего массива.
Если сумма >0, то пишете этот массив в ФАЙЛ2.

Закрываете оба файла.

[maliyusha]

Спасибо, пойду попробую