tissueНаписать программу, создающую целочисленный одномерный массив из 15 элементов. Заполнить его случайными числами в диапазоне от 0 до 6 и изменить по правилу: элементы под четными индексами увеличить в 3 раза. , под нечетными - уменьшить на 10.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
<= N-1
while i<=n-1 do begin
I=1
WHILE I<=N-
R=A(1):A(I)=A(I+1):A(I+1)=R r:=a[i];a[i]:=a[i+ 1];a[i+1]:=r;
inc(1,2);
end;
for i:=1 to n do begin
write(a[i), );
end;
readkey;
если правильно оцени в 5 звезд
267
sproutЧтобы ответить необходимо зарегистрироваться.
