Паскаль как написать программу, которая уменьшала бы все максимальные элементы в два раза? так? max: =a[1,1]; if a[i,j] > max then max: = a[i,j]; end; max: = max div 2; просто в данном случае, уменьшает только один максимальный элемент и то не всегда выдает правильный ответ.(делю квадратную матрицу 2*2 с элементами: 2 4 6 8 выводит max=2)

Const m=4; n=5; var  a: array[1..m,1..n] of real; i,j: integer; max: real; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to n do   begin     a[i,j]: =random(10);     write(a[i,j]: 5: 1);   end;   writeln;   end; max: =a[1,1]; for i: =1 to m do   for j: =1 to n do   if a[i,j]> max then max: =a[i,j]; writeln('max = ',max); for i: =1 to m do   for j: =1 to n do   if a[i,j]=max then a[i,j]: =a[i,j]/2; writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to n do write(a[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив:   1.0   9.0   1.0   9.0   8.0   4.0   4.0   5.0   9.0   9.0   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   9.0 max = 9 полученный массив:   1.0   4.5   1.0   4.5   8.0   4.0   4.0   5.0   4.5   4.5   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   4.5

Судя по всему вы понимаете, поэтому подсказки будет достаточно. немного не так. вы не сдвигаете элемента массива. вам нужен отдельные циклы для увеличения i и j. тогда программа будет сама переходить к нужному элементу массива на каждой итерации.

Program rd; var x: array [0..15] of real ; i: integer ; begin  x[i]: =random(32)-7; end.