Задание:
РЕШИТЬ В ПАСКАЛЕ ЗАДАЧУ. Дана целочисленная матрица (m*n). Найти среднее арифметическое вкаждой строке. Значения средних арифметических упорядочить по возрастанию снизу вверх.
Решение:
Немного не понял, упорядочить по возрастанию снизу вверх. Если выводить будет не так то в этой строчке изменишь знак на '>' if podarr[i] < podarr[i+1] thenprogram znanija_com; constn=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: =tend; beginrandomize; 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.
Знаете другой ответ?