Укажите лишнее в операциях над объектами windows. aкопирование b перемещение c удаление d хранение

175

242

Посмотреть ответы 2

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

14Dana14

Информатика

4,6(83 оценок)

Ответ d -

galinamosyagina

Информатика

4,4(41 оценок)

Var j, i, x: integer; a: array [1..20] of integer; begin randomize; writeln(); for i : = 1 to 20 do a[i] : = random(1000); for j : = 2 to 10 do for i : = 10 downto j do if a[i] < a[i - 1] then begin x : = a[i]; a[i] : = a[i - 1]; a[i - 1] : = x; end; for j : = 12 to 20 do for i : = 20 downto j do if a[i] > a[i - 1] then begin x : = a[i]; a[i] : = a[i - 1]; a[i - 1] : = x; end; for i : = 1 to 20 do if i mod 2 = 0 then a[i] : = 3 * a[i] else a[i] : = 2 * a[i]; writeln(); for i : = 1 to 20 do write(a[i], ' '); end.