Найти ошибку в задаче на ПАскаль

[Анжелика]

Вот опять вопрос что с ней не так, какието числа выдаёт, жуть.
Дана квадратная матрица. Получить новую умножая старые элементы на 2, если наибольший элемент стоит на главной диагонали и поделив да 2 в противоном случае.

Program zad48;
uses crt;
const n=4;
type t=array[1..n,1..n] of real;
var a:t; i,k,p,j:integer; max:real;
b:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('ishodnaya matrica');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
p:=1;
k:=1;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then begin
max:=a[i,j];
p:=i; k:=j;
end;
if k=p then begin
a[i,j]:=(a[i,j]*2);
end
else begin
a[i,j]:=a[i,j]/2;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5:2);
writeln;
end;
readln;
end.

Сегодня утром уже экзамен, а я уснуть не могу

[Sazary]

Надо бы сначала выяснить где находится максимум, а потом уже модифицировать матрицу. А у вас все делается в одном цикле. То есть, он может половину матрицы поделить на 2, а другую половину умножить )
Исправлено:

Program zad48;
uses crt;
const n=4;
type t=array[1..n,1..n] of real;
var a:t; i,k,p,j:integer; max:real;
b:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('ishodnaya matrica');
writeln;
for i:=1 to n do
  begin
  for j:=1 to n do
      begin
      a[i,j]:=random(100)-50;
      write(a[i,j]:7:2);
      end;
  writeln;
  end;

p:=1;
k:=1;
max:=a[1,1];
for i:=1 to n do
  for j:=1 to n do
   begin
     if a[i,j]>max then
     begin
      max:=a[i,j];
      p:=i; k:=j;
      end;
   end;

for i:=1 to n do
  for j:=1 to n do
   begin
    if k=p then
      begin
      a[i,j]:=(a[i,j]*2);
      end
    else
     a[i,j]:=a[i,j]/2;
   end;
writeln;
writeln('max= ',max:7:2);
writeln;

for i:=1 to n do
   begin
     for j:=1 to n do
      write(a[i,j]:7:2);
      writeln;
   end;
readln;
end.

[Анжелика]

ВСё равно белеберда какая-то....(

[Анжелика]

Ой, нет всё правильно, я там просто поменяла кол-во позиций. с 7 на 10. Спасибо теперь со спокойной душой пойду на экзамен.Только отрицательных элементов нет...