1) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2<>0) then p:=p+1;
end;
if (p>0) then writeln ('Присутствуют нечётные элементы')
else writeln ('Не присутствуют нечётные элементы');
end.
2) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2=0) then a[i]:=a[i]+1
else a[i]:=a[i]*2;
end;
writeln ('---'); // разделение двух массивов
for i:=1 to 20 do writeln (a[i]);
end.
j = 5
A[j]<A[j-1] ⇒ A[5]<A[4] ⇒ 3<9 ⇒ true (истина)
⇒ t = A[5] = 3; A[5] = A[4] = 9; A[4] = 3; j = j-1 = 5-1 = 4
массив: 1, 2, 5, 8, 3, 9, 4, 0, 7, 6
A[j]<A[j-1] ⇒ A[4]<A[3] ⇒ 3<8 ⇒ true (истина)
⇒ t = A[4] = 3; A[4] = A[3] = 8; A[3] = 3; j = j-1 = 4-1 = 3
массив: 1, 2, 5, 3, 8, 9, 4, 0, 7, 6
A[j]<A[j-1] ⇒ A[3]<A[2] ⇒ 3<5 ⇒ true (истина)
⇒ t = A[3] = 3; A[3] = A[2] = 5; A[2] = 3; j = j-1 = 3-1 = 2
массив: 1, 2, 3, 5, 8, 9, 4, 0, 7, 6
A[j]<A[j-1] ⇒ A[2]<A[1] ⇒ 3<2 ⇒ false (ложь)
ответ: j=2