4. В какой записи указано положительное число? A) B[i]%2!=0.
B) B[i]%2==0.
C) B[i]>0.
D) B[i]<0.
E) B[i]< >0.
[1]
5. В какой записи указано отрицательное число?
A) B[i]>0.
B) B[i]%2==0.
C) B[i]%2!=0.
D) B[i]<0.
E) B[i]< >0.
[1]
6. В какой записи указано четное число?
A) B[i]>0.
B) B[i]%2==0.
C) B[i]%2!=0.
D) B[i]<0.
E) B[i]=0.
[1]
7. В какой записи указано нечетное число?
A) B[i]%2==0.
B) B[i]>0.
C) B[i]%2!=0.
D) B[i]<0.
E) B[i]=0.
[1]
8. Согласно какой записи 4-й элемент массива равен 7?
A) B[3]=7.
B) B[4]=7.
C) B[7]=4.
D) B[7]=3.
E) B[i]=7.
[1]
9. Согласно какой записи идет увеличение каждого элемента массива в два раза?
A) for i in range(n): A[2*i]=A[i].
B) for i in range(n): A[i]=A[i]/2.
C) for i in range(n): A[i]=A[i]+2.
D) for i in range(1,n): A[i]=A[i]+2.
E) for i in range(n): A[i]=A[i]*2.
[1]
10. Согласно какой записи идет уменьшение каждого элемента массива в два раза?
A) for i in range(1,n): A[i]=A[i]+2.
B) for i in range(n): A[i]=A[i]*2.
C) for i in range(n): A[i]=A[i]+2.
D) for i in range(n): A[i]=A[i]/2.
E) for i in range(n): A[2*i]=A[i].
[1]
procedure Convert(V:array of integer);
begin
for var i:=0 to V.Length-1 do
if V[i]>9 then V[i]:=9
else
if V[i]<5 then V[i]:=5
end;
procedure Develop(c:char; k:integer);
begin
WritelnFormat('*** Массив {0} ***',c);
var a:=ArrRandom(k,-5,15);
Write('исходный : '); a.PrintLn(',');
Convert(a);
Write('результат: '); a.PrintLn(',');
end;
begin
var m:=ReadInteger('Количество элементов в массиве A:');
var n:=ReadInteger('Количество элементов в массиве B:');
Develop('A',m);
Develop('B',n)
end.
Тестовое решение:
Количество элементов в массиве A: 15
Количество элементов в массиве B: 10
*** Массив A ***
исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5
результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5
*** Массив B ***
исходный : 5,12,12,4,7,9,7,-3,-1,-2
результат: 5,9,9,5,7,9,7,5,5,5