Типизированные файлы - Дан файл целых чисел, найти "Сумму чисел, начинающихся с цифры 1" (Паскаль)

[777pro777]

У меня проблема как мне найти "Сумму чисел, начинающихся с цифры 1"??? программа пишется по теме файлы вот часть программы мне надо дописать тока заданный мною вопрос....

uses crt;
var
f_out: file of integer;
i,k,n:integer;
r:byte;
begin
clrscr;
assign (f_out, 'lab.dat');
rewrite (f_out);
for i:=1 to 40 do begin
k:=random(-20+30);
write(f_out,k);
  end;
close (f_out);
writeln  ('данные сохранены' );

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Сумму чисел, начинающихся с цифры 1

  assign (f_out, 'lab.dat');
  reset(f_out);

  sum := 0;
  while not eof(f_out)  do begin
     Read(f_out, k); {прочитали очередное число...}
     
     n := k; 
     while n>9 do n := n div 10; { оставили первую цифру числа}
    
     if n=1 then Sum := Sum + k;      
  end;
  Close(f_out);

  WriteLn('Сумма чисел, начинающихся с 1 равна ', Sum);
  Readln

p.s. в качестве метода определения, с какой цифры начинается число можно использовать и другой подход - переводить число в строковое представление,
потом анализировать первый элемент строки, если он = '1' - значит у нас подходящее для суммирования число...