напишите пожалуйста коментарии

[Владимир163]

var
  f: file of integer;
  a: array of integer;
  n, signed, unsigned: integer;
 
begin
  write('Кол-во элементов в файле: ');
  readln(n);
  SetLength(a, n);
  for var i := 0 to n - 1 do
    a[i] := random(-10, 10);
  assign(f, 'file');
  rewrite(f);
  for var i := 0 to n - 1 do
    write(f, a[i]);
  reset(f);
  writeln('Файл:');
  while not eof(f) do
  begin
    var i: integer;
    read(f, i);
    write(i:5);
  end;
  for var i := 0 to n - 1 do 
  begin
    if a[i] < 0 then a[i] += 2;
    if a[i] < 0 then inc(unsigned)
    else if a[i] > 0 then inc(signed);
  end;
  rewrite(f);
  for var i := 0 to n - 1 do
    write(f, a[i]);
  reset(f);
  writeln(#13#10, 'Новый файл:');
  while not eof(f) do
  begin
    var i: integer;
    read(f, i);
    write(i:5);
  end;
  writeln(#13#10, 'Кол-во отрицательных компонентов: ', unsigned);
  writeln('Кол-во положительных компонентов: ', signed);
end.

[Vanta11a]

комментарии

Смотри-ка, написал.
В чем проблема? Что тут комментировать? Простейшая программа подсчета числа отрицательных и положительных компонентов в типизированном файле.

[Stilet]

Описываем переменки
var
Для файла целых
  f: file of integer;
Для массива целых
  a: array of integer;
И еще какую-то чухню техническую
  n, signed, unsigned: integer;
 
Начинаем программу
begin
Просим ввести
  write('Кол-во элементов в файле: ');
И вводим
  readln(n);
Разворачиваем массив длинной, которую только что ввели
  SetLength(a, n);
В цикле его наполняем случайными числами
  for var i := 0 to n - 1 do
    a[i] := random(-10, 10);
Открыв-создав файл
  assign(f, 'file');
  rewrite(f);
Записываем в него эти числа
  for var i := 0 to n - 1 do
    write(f, a[i]);
Переоткрыв файл на чтение
  reset(f);
  writeln('Файл:');
Считываем из него числа
  while not eof(f) do
  begin
Это фигня какая то...
    var i: integer;
Считав цисла - выведем на экран
    read(f, i);
    write(i:5);
  end;
После циклом, котрый тоже выглядит странно
  for var i := 0 to n - 1 do 
  begin
Пройдемся по массиву и проверим его положительные и отрицательные
Подсчитаем их кол-во и положительные увеличим на 2
    if a[i] < 0 then a[i] += 2;
    if a[i] < 0 then inc(unsigned)
    else if a[i] > 0 then inc(signed);
  end;
Перезапишем в файл измененный массив, где положительные увеличены
  rewrite(f);
  for var i := 0 to n - 1 do
    write(f, a[i]);
И опять измененный файл считаем, выведя на экран
  reset(f);
  writeln(#13#10, 'Новый файл:');
  while not eof(f) do
  begin
    var i: integer;
    read(f, i);
    write(i:5);
  end;
А так же отчитаемся сколько положительны и отрицательных
  writeln(#13#10, 'Кол-во отрицательных компонентов: ', unsigned);
  writeln('Кол-во положительных компонентов: ', signed);
end.

Такой код может прокатить в современных версиях паскаля (возможно), но канонические догмы он уж точно нарушает.