20.12.2014, 22:37
|
|
.
|
|
Регистрация: 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 в.д.
|