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

227

393

Посмотреть ответы 2

Ответы на вопрос:

lagodaviktoria2

Информатика

4,7(50 оценок)

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.