Задание: Дан массив A(5,5). Изменить часть матрицы, находящуюся под главной диагональю следующим образом: если элемент A[i,j] этой части матрицы больше элемента A[j,i], то задать элементу A[i,j] новое значение, равное полу сумме двух этих элементов.
program S2_Z3;
type m=array[1..100,1..100] of real;
var A:m;
procedure vvod(m,n:integer;var x:m);
var i,j: integer;
begin
writeln(‘введите элементы массива’);
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure mat(m,n:integer;var x:m);
var i,j: integer; t:real;
begin
writeln(‘изменённый матрица A[i,j] будет выглядеть так’);
for i:=1 to m do
for j:=1 to n do
if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2;
for i:=1 to m do
for j:=1 to n do
write( A[i,j]:2:1,’ ‘);
end;
begin
vvod(5,5,A);
mat(5,5,A);
end.