Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>
1- это рисунок как получится, а во 2 сама программа :)
1)джойстик
2)?
3)процессор
4)принтер
5)системный блок
6)системный блок
7)видеокарта
8)enter
9)цветной принтер
ОКЕАН МОРЕ РЕКА
Тихий океан. Азовское Волга
Индийский Черное Дон
46>11; d=46-11=35
35>11;d=35-11=24
24>11;d24-11=13
13>11;d=13-11=2
Ответ под буквой а