Задать вопрос
2 марта, 14:58

Заполните массив с четным количеством элементов случайными числами и выполните реверс отдельно для первой и второй половины массива

ПаскальABCnet

+3
Ответы (1)
  1. 2 марта, 16:12
    0
    Const nx=30; var n, i, k, t, j, kp : integer; p, pp: real; b:array[1 ... nx] of integer; beginReadln (n) ; if n mod 2 = 0 then beginp: = n/2; k:=round (p) ; pp: = k/2; kp:=round (pp) ; for i:=1 to n do beginb[i]:=random (98) - 25; write (b[i]:3) ; end; writeln; for i: = k downto 1 do beginj:=j + 1; t:=b[j]; b[j]:=b[i]; b[i]:=t; if i - kp = 1 then break; end; writeln; j:=k; for i: = n downto k+1 do beginj:=j + 1; t:=b[j]; b[j]:=b[i]; b[i]:=t; if i - (kp+k) = 1 then break; end; for i:=1 to n do write (b[i]:3) ; endelsewriteln ('Введено не правино') ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполните массив с четным количеством элементов случайными числами и выполните реверс отдельно для первой и второй половины массива ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы