Какие варианты по адаптации кода могут быть?

[VaLenOK007]

Привет программеры. У меня вот тут кодище есть один... Он реализован ближе к делфи чем к элементарному паскалю, но вот наши препода кричат и машут руками дескать "Мы тебя так не учили, это всё хрень и не рабочая". Кто сможет упростить? Ну чтоб совсем прям элементарно было?

const
 n = 3;
Var
 a:array [1..n,1..n] of real;
 i,j:integer;
 sum:real;
Begin
 Writeln('Введите элементы: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(a[i,j]);
   Writeln('---');
  End;
 Writeln;
 writeln('Начальная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
 sum:=0;
 For i:=1 to n do
  For j:=1 to n do
   If (odd(j)) and (frac(a[i,j]) <> 0) then sum:=sum+a[i,j]; {Подсчет суммы элементов c дробной частью}
 Writeln;
 Writeln('Сумма элементов, стоящих в нечетных столбцах и имеющих дробную часть ',sum);
 For i:=2 to n do
  For j:=n-i+2 to n do
   a[i,j]:=a[i,j]+sum; {Выполнение сложения}
 writeln;
 Writeln('Конечная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
End.

А если конкретнее, то If (odd(j)) and (frac(a[i,j]) <> 0) then sum:=sum+a[i,j]; эту строку.

задание если кому надо вот
Все элементы матрицы X[n,n] лежащие ниже второстепенной диагонали заменить суммой элементов с дробной части, стоящих в нечетных столбцах




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Merkator]

odd(x) равносильно x mod 2 = 1
frac(x) равносильно x - trunc(x)

Надеюсь этого хватит.
(На будущее, делайте отступы, скажем, в 4 пробела. Отступ в 2 пробела еще читаем, а в 1 совсем нет)

[Serge_Bliznykov]

суммой элементов с дробной части, стоящих в нечетных столбцах

как минимум, это написано коряво (не по русски),
как максимум, имеется в виду СОВЕРШЕННО не то, что Вы делаете в программе!
Может быть, именно это и не нравится Вашим преподавателям?!


Лично у меня к самой программе (исходному коду) никаких претензий нет. И заменять odd(xx) на (xx mod 2 = 1) - ересь... Если Ваши преподаватели совсем не знают стандартные функции языка Pascal - то пусть подучат! В любом букваре по Паскаль это есть!