В двухмерном массиве в строках хранится информация об оценкахкаждого…

В двухмерном массиве в строках хранится информация об оценкахкаждого из 20 учеников класса по тому или иному предмету (в первой строке – информация об оценках первого ученика, во второй – второго и т.д.). Общее число предметов равно 10. Определить среднюю оценку по классу в целом. Помогите составить программку: 3

в избранное

skcii

03 сентября 2022

Program Task; Const pupils=20; subjects=10; Var marks: Array[1… pupils, 1… subjects] of Integer; marks_average: Array[1… pupils] of Real; i, j: Integer; all_marks_average: Real; Begin For i: =1 To pupils Do Begin WriteLn ('Введите через пробел оценки ученика №', i); For j: =1 To subjects Do Read (marks[i, j]); End; For i: =1 To pupils Do Begin For j: =1 To subjects Do marks_average[i]: =marks_average[i]+marks[i, j]; marks_average[i]: =marks_average[i] / subjects; End; For i: =1 To pupils Do all_marks_average: =all_marks_average+marks_average[i]; all_marks_average: =all_marks_average / pupils; WriteLn ('Результат: ', all_marks_average: 2:2); ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?