Паскаль.Обработка двумерных массивов.

[popozoglo]

В матрице С(5х3) вычислить среднее арифметическое в каждой строке. Если наибольшее среднее арифметическое меньше числа 3.2, то все элементы матрицы разделить на этот максимум, в противном случае матрицу оставить без изменений.

[Namolem]

пиши в асю

[CodeExpert]

program xxx;
uses Crt;
var mas:array[1..3,1..5] of real;
    i,j:integer;
    sa:real;maxas:real;
begin
Writeln('Введите массив');
for i:=1 to 3 do begin
 for j:=1 to 5 do begin
  Readln(mas[i,j]);end;end;
Writeln('Введенный массив:');
for i:=1 to 3 do begin
 for j:=1 to 5 do begin
  Write(mas[i,j]);end;Writeln;end;
sa:=0;
maxas:=0;
for i:=1 to 3 do begin
 for j:=1 to 5 do begin
  sa:=sa+mas[i,j];end; if maxas>sa then maxas:=sa;
  sa:=0;end;
if maxas>3.2 then begin
  for i:=1 to 3 do begin
    for j:=1 to 5 do begin
     mas[i,j]:=mas[i,j]/maxas;end;end;
Writeln('Результат:');
for i:=1 to 3 do begin
 for j:=1 to 5 do begin
  Write(mas[i,j]);end;Writeln;end;end;
Readln;
end.

как бы наверное так...