Показать сообщение отдельно
  #2  
Старый 20.12.2014, 22:37
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Если не менять стилистику программы и внести минимальные изменения, то:
Код:
program p15;

{$APPTYPE CONSOLE}

var
  f : File of Integer;
  Sum : Integer;
  
procedure vvod;
var
  I, J : Integer;
begin
  AssignFile(f, 'dat.dat');
  Rewrite(f);
  WriteLn('Введите данные для заполнения файла: ');
  for I := 1 to 11 do
  begin
    Write('Введите ', i, '-элемент: ');
    ReadLn(J);
    Write(f, J);
  end;
  CloseFile(f);
end;

procedure resh;
var
  I, J : Integer;
begin
  AssignFile(f, 'dat.dat');
  Reset(f);
  I := 0;
  while not eof(f) do
  begin
    Read(f, J);
    inc(I);
    if I > J  then
      inc(Sum, J);
    Write(J, ', ');
  end;
end;

procedure vivod;
begin
  Write(' Результат = ', Sum);
  CloseFile(f);
end;

begin
  vvod;
  resh;
  vivod;
end.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием