Тип файла можно определить, зная его а.размер б.расширение в.дату создания г.размещение

Ответ б. расширение. но и он . никто не запрещает в файл с расширением .txt поместить документ word, а в .xls - видео. только это не принято делать, потому что тогда файл не открыть двойным щелчком мыши. прочие ответы совершенно не подходят, потому что тип файла связан с его содержимым и программой, которую надо запустить для его обработки, а это содержимое никак не связано с длиной, датой создания или размещением файла.

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая: program futbol; var fio: array [1..25] of string;         gol: array [1..25] of integer;         i,j: integer;         f: string; begin     writeln ('введите фамилии игроков, забивших голы');     writeln ('окончание ввода - пустая строка');     j: =0; repeat       readln(f)     newfio: =true;     for i: = 1 to j do begin         if fio[i]=f then begin               gol[i]=gol[i]+1;                 newfio: =not newfio;               end;         if newfio then begin             j: =j+1;             fio[j]: =f;     end; while not f=''; for i: = 1 to j do begin   if gol[i]> 2 then writeln fio[i]; end; end.

Хочу предложить еще один вариант решения. не говорю, что он лучше, просто другой. ради интереса просто. заменим буквы цифрами. е=0, ж=1, и=2. наша таблица примет вид 1. 00000  2. 00001 3. 00002 4. 00010 в трехзначной системе это будут просто числа, идущие с 0 по возрастанию 1. 00000  2. 00001 (число, означающее 1) 3. 00002  (число, означающее  2) 4. 00010  (число, означающее  3) 238.   (число, означающее  237) 237₁₀=22210₃ вернувшись к буквенным обозначениям, получаем , что совпадает с предыдущим ответом.