1.Правильно ли описан массив А? Если нет, то что надо изменить? Type odmyarray=Array[I..n+20] Of Integer;

Var A: odmyarray;

Что получится в результате выполнения программы?

Program Variant3;

Const n=17;

Type myarray=Array[1..n] Of Integer;

Var B: myarray;

i: Byte; p: Integer;

Begin

p:=0;

For i:=l To n Do

Begin

B[i]:=-35+Random(121);

If C[i] Mod 10 = 0 Then p:=p+l;

End;

Writeln (p);

Readln;

End.

3. Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Найти:

сумму положительных элементов, значения которых меньше 10;

и вывести индексы тех элементов, значения которых кратны 3 и 5.

4. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)

Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ(выражение);число)»

Дано:

Математическое выражение:
«(89+75)−2(72:(3+7))»

Найти:
Значение выражения и округлить его в MS Ecxel.

Формула (Её нужно ввести в окошко Excel и нажать "Enter"):
«=ОКРУГЛ((89+75)-2*(72/(3+7));2)»

ответ:
149,6

(До сотых программа округлить не может, ибо число имеет только десятые в ответе)

Далее скриншот, и файл Excel в котором формула и сам ответ.