Регистрация
afanasevaboom123
05.04.2023 04:49
Информатика
Есть ответ 👍

Натування тексту
Розгадай ребус
2,5,6

225
419
Посмотреть ответы 1

Ответы на вопрос:

вероника04122006
вероника04122006
4,8(52 оценок)

const m = 20;

var arr: array[1..m] of integer; i, j, k,r: integer;

begin

for i : = 1 to m do begin arr[i] : = random(256); end; for i : = 1 to m-1 do for j : = 1 to m-i do if arr[j] > arr[j+1] then begin k : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = k end; write (arr[20]); readlnend.

Популярно: Информатика