Паскаль Имеется массив ** 10 элементов . Все элементы- натуральные числа . Каждый четный...

Question

Паскаль
Имеется массив на 10 элементов . Все элементы- натуральные числа . Каждый четный элемент поменять местами с предыдущим . Вывести полученный массив.

Answer 1

Const n=10; 
var a:array[1..n] of integer;
i,b:integer; 
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(51);
 write(a[i]:4);
 end;
writeln;
for i:=2 to n do
 if a[i] mod 2 = 0
  then begin b:=a[i]; a[i]:=a[i-1]; a[i-1]:=b end;
writeln('Измененный массив');
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
  23  40  43  45  29  17  11  22  23  27
Измененный массив
  40  23  43  45  29  17  22  11  23  27