Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 В??общем если не понятно, то на скриншоте всё видно. Нужно на паскале решить
?общем если не понятно, то на скриншоте всё видно. Нужно на паскале решить
Ответы:
19-08-2018 23:26
Var A,B:array[1..17] of integer;i:byte;beginfor i:=1 to 17 do read(a[i]);for i:=1 to 17 doif odd(i) then begin b[i]:=a[i]; write(b[i],); end;for i:=1 to 17 doif not odd(i) then begin b[i]:=a[i]; write(b[i],); end;end.
Также наши пользователи интересуются:
Закон изменения температуры T тела в зависимости от времени t задан уравнением T=0,2tWhen....? He was born in 1835. When......? At the age of six. Where....? The military akademy in Omsk.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 В?» от пользователя КАРОЛИНА АПУХТИНА в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!