процедура убывания ср значения в строке матрицы

@halfpenny · Регистрация: 15.01.2009

Студворк — интернет-сервис помощи студентам

Результаты экзаменационной сессии представлены в виде матрицы, номера строк которых соответствуют списочным номерам студентов группы; номера столбцов – номерам экзаменов; значение элементов – оценки по 100 бальной шквале. Написать программу, которая выводит и печатает таблицу результатов сессии в порядке убывания их средних оценок. Ввод вывод, печать и обработку данных выполнить в подпрограммах.

не могу написать как найти ср оценку в каждой строке матрицы. потом результат надо переписать в другую матрицу?

Pascal

Program b22;
Uses CRT;
Const
n=5;
Type
Matr=array [1..n,1..n] of integer;
Var
A:Matr;
i,j,x,y,k1,k2:integer;
procedure vvod(var A:matr);
var i,j:byte;
begin
For i:=1 to n do
For j:=1 to n do
A[i,j]:=random (100);
end;
procedure vyvod(var A:matr);
var i,j:byte;
begin
For i:=1 to n do
begin
For j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
procedure obrab(var A:matr);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=n downto i do
if a[j]<a[j+1] then
begin
z:=a[j];
a[j]:=a[j+1];
a[j+1]:=z;
end;
end;
begin
clrscr;
randomize;
vvod(a);
writeln('a=');
vyvod(a);
obrab(a);
vyvod(a);
readln;
end.

Опции темы