Указатели, Динамическая память (Паскаль)

[E1337]

Известно, что в следующем фрагменте программы массив matrica содержит оценки студентов груп-пы, фамилии которых перечислены в типе familiya:
Type
Familiya = (Иванов, Просветкин, Лемин, Михайлов, Маслов, Юрьева, Беляева, Малащенко, Нагайцев, Семыкин);
Predmet = (матанализ, алгебра, информатика, ис-тория, матлогика, механика, педагогика, дифурав-нения, статистика):
Var
Matrica: array [familiya, predmet] of integer;
Поменять местами оценки любого студента, средний балл которого минимален, с оценками первого из студентов списка, который не имеет неудовлетворительных оценок.

[evg_m]

без указателей
написано в блокноте (не проверялось!)

var f: Familia;
  p: Predmet;
  s: integer;

smin:=0;
for p:=low(predmet) to high(predmet) do
  smin:=smin+6; //заведомо больший средний(суммарный) балл

for f:=high(Familia) downto low(Familia) do begin
  s:=0; fgood:=true;
  for p:=low(predmet) to high(predmet) do begin
    s:=s+matrica[f,p];//считаем не средний а суммарный балл
    fgood:=fgood and (matrica[f,p]>2); //проверка "положительных оценок"
  end;

  if s<smin then begin
    smin:=s;
    fmin:=f;// студент с минимальным баллом
  end;
  if fgood then fisrtgood:=f;//последний найденный(будет первым в списке с учетом ОБРАТНОГО просмотра списка)
end; 

// поменяем их оценки местами
for p:=low(predmet) to high(predmet) do begin
  matrica[firstgood, p]:=matrica[fmin, p] +matrica[firstgood, p];
  matrica[fmin, p]:=matrica[firstgood, p] -matrica[fmin, p];
  matrica[firstgood, p]:=matrica[firstgood, p] -matrica[fmin, p];
end;

[E1337]

up!