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

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.

Var a: array[1..5,1..10] of integer; b: array[1..5,1..10] of real; i,max: integer; begin max: =0; for i: =1 to 5 do  for j: =1 to 10 do begin read(a[i,j]); if abs(a[i])> max then max: =a[i]; end; for i: =1 to 5 do  for j: =1 to 10 do begin b[i,j]: =a[i,j]/max write(a[i,j]); end; end.