Немного не понял, упорядочить по возрастанию снизу вверх. Если выводить будет не так то в этой строчке изменишь знак на '>' if podarr[i] < podarr[i+1] then
program znanija_com; const n = 5; m = 3; type tArray = array[1..n, 1..m] of integer; tPodArray = array[1..n] of real; var arr : tArray; podarr : tPodArray; i,j,sum : integer; procedure swap(var x,y: real); var t: real; begin t := x; x := y; y := t end; begin randomize; writeln('Исходная матрица:'); for i:=1 to n do begin sum:=0; for j:=1 to m do begin arr[i, j]:=random(10); write(arr[i, j], ' '); sum:=sum+arr[i, j]; end; writeln(); podarr[i]:=sum/m; end; for j:=1 to n-1 do for i:=1 to n-j do if podarr[i] < podarr[i+1] then swap(podarr[i],podarr[i+1]); writeln('Результирующий массив:'); for i:=1 to n do writeln(podarr[i], ' '); end.
QB7N 7 — WNR8M — 7G9PM — 9D8N6 — VCDQD
GHT5E — NGERS — NGTE0 — 98DNE — VBDSO
NGR89 — DNEK6 — JHI96 — 5KGuT — MUP5T
NR78E — VB69T — YzCQ7 — DSO5S — OS06S
RE686 — DC6WD — GVD76 — s7RT6 — N6GNT
SKT35 — 1SH7H — 2DIHV — 3FF7H — 25F73
123F5 — 5VJ6N — 4F6F3 — DGF53 — 64SGS
D5GUD — 6GK8F — EFU8D — RE5G5 — W4Y6G
RFHFR — 125G6 — 245F7 — 2TG78 — 12ED7
27H73 — B7YDS — 45FU8 — X5HF5 — 2SD57
2DTUI — 4GDFD — 43HGF — HFG65 — B475F
FDDF7 — S67HH — 4HGCX — F7UEC — 45EHG
ERG5G — CY7CS — FVI74 — D6RCF — THFRF
SDY4C — DGVC5 — CCY4X — 4GXBB — BVHVC
VHYJC — 35VJM — CY5EC — VJ6DF — Y4REG
RVHGD — 5GJGD — HRG6D — 5HDR4 — G45YH
4F6F3 — HRG6D — NR78E — VCDQD — VB69D
23TFG — BJDB5 — UIN5G — 65JCT — VJ7YG
VU6EV — IKYH5 — CY65W — VU6RV — 4FGUT
R4UYG — T5HCT — CUTIF — T8654 — V8547
5HCCY — UBVKU — 4D7OG — 457UD — 5TS67
46S78 — 6RJ84 — D7854 — U856N — 6I89C
47FJN — 4NBUV — MCFUU — DVBJD — 5YDBD
Это все ключи но их могли уже забрать по этому на до проверить)
program znanija_com;
const
n = 5;
m = 3;
type
tArray = array[1..n, 1..m] of integer;
tPodArray = array[1..n] of real;
var
arr : tArray;
podarr : tPodArray;
i,j,sum : integer;
procedure swap(var x,y: real);
var t: real;
begin
t := x;
x := y;
y := t
end;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do begin
sum:=0;
for j:=1 to m do begin
arr[i, j]:=random(10);
write(arr[i, j], ' ');
sum:=sum+arr[i, j];
end;
writeln();
podarr[i]:=sum/m;
end;
for j:=1 to n-1 do
for i:=1 to n-j do
if podarr[i] < podarr[i+1] then
swap(podarr[i],podarr[i+1]);
writeln('Результирующий массив:');
for i:=1 to n do
writeln(podarr[i], ' ');
end.