2. Запишіть оператор присвоєння цілочисельній змінній А значення з властивості Text текстового поля Edit1. 3. Запишіть оператор виведення значення змінної By текстове поле Edit2. 4. Яка властивість зберігає значення списку ComboBox? на
Вот более правильное определение для справки Операцио́нная систе́ма, сокр. ОС (англ. operating system, OS) — комплекс управляющих и обрабатывающих программ, которые, с одной стороны, выступают как интерфейс между устройствами вычислительной системы и прикладными программами, а с другой стороны — предназначены для управления устройствами, управления вычислительными процессами, эффективного распределения вычислительных ресурсов между вычислительными процессами и организации надёжных вычислений. Это определение применимо к большинству современных операционных систем общего назначения.
Немного не понял, упорядочить по возрастанию снизу вверх. Если выводить будет не так то в этой строчке изменишь знак на '>' 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку