Элементы последовательности домножить на 10

const n=5;
var a:array[1..n,1..n]of Integer;
i,j:Byte; k,max,s:Real;
begin
Randomize;
for i:=1 to n do begin
for j:=1 to n do begin
  a[i][j]:=Random(25)+1;
  Write(a[i,j]:4);
end;
Writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
  if a[i,j]>max then
  max:=a[i,j];
end;
Writeln('max=',max:1:1);
begin
 
if max = a[i,i] then
max:=max*10
else
max:=max*0.5;
end;
writeln(max:1:1);
readln;
end.

const n = 4;
var x: array [1..n, 1..n] of double;
    a: array [1..n+5] of double;
    i, j, mi, mj: integer;
    p: double;
begin
  randomize;
  mi := 1;
  mj := 1;
  writeln('Исходная матрица:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          x[i, j] := -10 + 20 * random;
          write(x[i, j]:6:2);
          if x[i, j] > x[mi, mj]
            then begin
              mi := i;
              mj := j
            end
        end;
      writeln
    end;
  writeln('Максимальный элемент: x[', mi, ', ', mj, '] = ', x[mi, mj]:6:2);
  if mi = mj then p := 10 else p := 0.5;
  writeln('Исходный массив:');
  for i := 1 to n + 5 do
    begin
      a[i] := -10 + 20 * random;
      write(a[i]:8:2);
      a[i] := a[i] * p
    end;
  writeln;
  writeln('Преобразованный массив:');
  for i := 1 to n + 5 do write(a[i]:8:2);
  writeln;
  readln
end.