работа с типизированными файлами

[arai uzbekova]

в корневом каталоге диска С:сформировать файл zl.xxx,который будет содержать 30 случайных целых чисел из диапазона от 0 до 50.
вывести на экран сумму четных чисел ,содержащихся в файле zl.xxx

[interacia]

Я вам задачку а вы мне что?
Хоть анекдот или стишок какой ни будь напишите.
Ну если не можете то в крайнем случаи деньгами дайте.

program VvodInteger;
var
NameFile: String;
Sum: integer;
N: integer;
i:integer;
F: file of integer;
temp:integer;
begin
// Ввод данных
NameFile:='C://zl.xxx';
N:=30;
  Assign(f,NameFile); // связывает файловую переменную f с именем S
  Rewrite(f);         // создает и открывает новый файл
for i:=1 to n do
   begin
Write(F,random(51));
   end;
 Close(f);

  reset(f);
Sum:=0;
 while  not Eof(f) do
   begin
     read(f,temp);
if (temp mod 2)=0 then Sum:=Sum+temp;
   end;
 Close(f);
Writeln(Sum);
end.

[s-andriano]

Не в порядке критики, а в порядке информации:

если вместо

if (temp mod 2)=0 then Sum:=Sum+temp;

написать

if not odd(temp) then inc(Sum,temp);

то нагрузка на процессор немножко уменьшится.

Это, конечно, ловля блох, но все-таки...
Мне кажется, с самого начала нужно писать оптимально. Особенно, если это не приводит к существенному увеличению объема текста программы.

[interacia]

s-andriano
Знаю про эту штуку. Абсолютно с вами согласен.
Ну как то из до руки на автомате вырывается.
Ещё привычка копировать даже мелкие куски кода то же заводит до таких вот некрасивых строчек. Буду над собой работать.