Предполагаем, что 1 Кбит равен 1024 битам (это в условиях задачи не оговорено!). Тогда 57344 Кбит = 57344 х 1024 бит или 57344 х 1024 / 8 байт. А 1 Мбайт это 1024 х 1024 байт. Тогда решением будет 57344 х 1024 / (8 х 1024 х 1024) = 7 (Мбайт)
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.
Тогда 57344 Кбит = 57344 х 1024 бит или 57344 х 1024 / 8 байт.
А 1 Мбайт это 1024 х 1024 байт.
Тогда решением будет 57344 х 1024 / (8 х 1024 х 1024) = 7 (Мбайт)