с тестом
1. Дано описание массива: const a : array[1..4] of integer = (12,9,63,109); Верно ли описан массив? *
1)неверно
2)верно
2. Определи заполнения массива. randomize; for i := 1 to 10 do a[i]:=random(87); *
1)с оператора присваивания (случайными числами)
2)нет верного ответа
3)ввод каждого значения с клавиатуры
3. Определи вывода массива.
картинка 1
1)вывод массива с комментариями
2)элементы массива выводятся в строку
4. Дана программа. Что выводит эта программа в результате своей работы?
картинка 2
ответь словами.
5. Какое слово пропущено?. — это поименованная совокупность однотипных элементов, упорядоченных по индексам, определяющим положение элемента в массиве.
7. Дан одномерный массив: −18 27 0 −4 1 12. Запиши индекс элемента массива, если значение элемента массива равно 1.
8. Определи заполнения массива. randomize; for i:=1 to 10 do read(a[i]); *
1)с оператора присваивания (случайными числами)
2)ввод каждого значения с клавиатуры
3)по формуле
9. Дано описание массива: var a : array [1..n] of real; Выбери, какие элементы массива подходят.
1)−3i −6 +2i
2)−5.7 2.7 −2
3)среда четверг суббота
10. Определи вывода массива.
картинка 3
1)вывод массива с комментариями
2)элементы массива выводятся в строку
11. Дано описание массива: var a : array [1..n] of integer; Выбери, какие элементы массива подходят.
1)−3.1 1.1
2)−8 −45
3)среда четверг суббота
12. Дан одномерный массив: −17 23 0 −5 3 12. Каков индекс элемента массива со значением −5?
N = int(input())
X = [''] * N
for a in range(N):
X[a] = int(input())
a = 0
c, b, e, f = 0, 0, 0, N + 1
g, h = 0, 0
while a < N - 2:
a += 1
e += 1
b, c = X[a], b
if c < b:
while a < N - 1:
a += 1
e += 1
d = X[a]
if d < b:
if e < f:
g, h = a - e + 1, a + 1
f = e
break
elif d == b:
continue
else:
break
e = 0
if g == 0 and h == 0:
print(0)
else: print(g, h)
Объяснение:
55 балов
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.