Работа с файлами

[Андрей77777]

Прошу помогите сделать программу
1.Задание
Создать типованый файл в который записать массив це чисел А (15)
Задача № 2
Обработать типованый файл: найти сумму положительных элементов, имеющих четные индексы.

[Serge_Bliznykov]

ну неужели Вы ничего не хотите и не можете сделать самостоятельно?!
Задачи же такие, что проще уже не придумаешь!!!

1-я задача.

const N = 15;
var A:array[1...N] of integer;
  i : integer;
  f : file of integer;
begin
  {заполним массив A случайными числами от 1 до 100} 
  Randomize;
  for i:=1 to N do A[i] := 1+ Random(100);

  {создадим новый файл с именем CHISLA.DAT}
  Assign(f, 'CHISLA.DAT');
  Rewrite(f);

  {запишем в него содержимое массива}
  for i:=1 to N do Write(f, A[i]);

  {закроем файл}
  Close(f);

  WriteLn('Done. CHISLA.DAT was be created.');
  Readln; {ждём нажатия ENTER, чтобы программа сразу не закрылась}
end.

в условии не было сказано, какого типа должен быть файла.
возможно, что файл состоит из элементов типа массив.

тогда задача №1 может быть записана в таком виде:

const N = 15;
type MyArrayType =  array[1...N] of integer;
var A: MyArrayType;
  i : integer;
  f : file of MyArrayType;
begin
  {заполним массив A случайными числами от 1 до 100} 
  Randomize;
  for i:=1 to N do A[i] := 1+ Random(100);

  {создадим новый файл с именем CHISLA.DAT}
  Assign(f, 'CHISLA.DAT');
  Rewrite(f);

  {запишем в него содержимое массива:
       Внимание. Это ОДНА строчка кода - записываем весь массив целиком!}
  Write(f, A);

  {закроем файл}
  Close(f);

  WriteLn('Done. CHISLA.DAT was be created.');
  Readln; {ждём нажатия ENTER, чтобы программа сразу не закрылась}
end.

ё