Регистрация
valerijarukavitsona
23.06.2022 04:25
Информатика
Есть ответ 👍

Закодируйте и декодируйте рисунок замок

193
359
Посмотреть ответы 1

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

Mildx
Mildx
4,5(36 оценок)
Var   a: array [1..100] of integer;   i,j,n,k: integer; begin   readln(n);   for i: = 1 to n do readln(a[i]);   for i: = 1 to n do if odd(i) then     for j: = 1 to n-i do if odd(j) then       if a[j]> a[j+2] then begin         k: = a[j];         a[j]: = a[j+2];         a[j+2]: = k       end;   for i: = 1 to n do write(a[i],' ') end.

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