1)Упорядочить элементы столбцов матрицы за спадением их значений методом обмена
2)fi(aij) - произведение элементов в каждой строке под вспомогательной диагональю матрицы;
3) F(fi(aij)) - среднее арифметическое значение fi(aij)
Упорядочить - упорядочил а дальше не получаеться (2ю3 пункти)
Заранее благодарен
uses crt;
var
P:array [1..5,1..5] of integer;
n,min,i,j,k,r:integer;
begin {Vvedennya Masuvy};
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do begin
write ('p[',i,' ',j,']=');
readln (P[i,j]);
end;
writeln('Massive');
for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;
writeln('After sort');
{Vporydkyvannya}
for k:=1 to 5 do begin
for j:=1 to 4 do begin
min:=P[j,k]; n:=j;
for i:=j+1 to 5 do
if P[i,k]>min then begin min:=P[i,k]; n:=i; end;
r:=P[n,k];
P[n,k]:=P[j,k];
P[j,k]:=r;
end;
end;
{Vuvedennya}
for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;
readkey;
end.
