Паскаль авс. дан массив записей. отдельная запись-это информация об успеваемости студента: фио, 8 оценок. напечатать таблицу успеваемости студентов группы, численностью 7 человек, с учетом вывода среднего успеваемости каждого студента.

Const  mas : array [0..6,0..8] of string = (('иванов иван иванович         ', '1', '2', '3', '1', '5','3', '3', '2'),                                      ('петров петр петрович         ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('сидаров сидор сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                               ('алексеев алексей алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                      ('сергеев сергей сергеевич     ', '2', '2', '5', '5', '5','5', '2', '3'),                                      ('степанов степан степанович   ', '5', '5', '5', '4', '5','5', '5', '5'),                                      ('давыдов давид давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                               var sr: real; // средний     b: real; begin  writeln('');   writeln('|             фио             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');   writeln('');   for var i: =0 to 6 do begin    write('|'+mas[i,0]+'|');       sr: =0;     for var j: =1 to 8 do begin    write(' '+mas[i,j]+' |');     double.tryparse(mas[i,j],b); // строку в число    sr: =sr+b;     end;     sr: =sr/8;     write(sr: 5: 3);     write('|');     writeln;   end;   writeln('');   end.

Чтобы  знать к какому типу файл относится и для правильной работы с различными программами и форматами.