Используя команды, процедуры и управляющие структуры «Цикл» и «Ветвление», составить алгоритмы, выполняющий задания с 1 по 6, сохранить их средствами «Стрелочки» как текстовые файлы. Задание 6. Прямоугольники на всё поле. Алгоритм может работать только на поле 12 х 12
С стрелочки нужно создать алгоритм, благодаря которому должны получиться итоги (Как на фото)
1 фото - как выглядит программа - остальное, как должен выглядеть рисунок
Немного не понял, упорядочить по возрастанию снизу вверх. Если выводить будет не так то в этой строчке изменишь знак на '>' 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.