Задача :
Пусть генератор случайных чисел заполнит массив из 10 вещественных чисел. Каждое число, помещаемое в массив, должно быть из диапазона значений от 0 до 20.
Внимание: 10- это размер массива, который определяется при описании и влияет на циклы.
0-20 –это диапазон значений, который определяется только в формуле.

Задание:
1) Выполните программу и запишите протокол.
2) Измените программу так, чтобы массивы поменял имя (c) и тип на целый
3) Измените программу так, чтобы в массиве уменьшилось количество элементов до 15.
4) Измените программу так, чтобы значение элементов определялось из диапазона [-10,10]
5) Измените программу так, чтобы готовый массив выводился в отдельной строке;
6) Найдите количество положительных элементов массива. Для этого:
− опишите переменную для накопления суммы (Kol);
− задайте ей начальное значение, равное 0 (до цикла);
− после определения значения элемента, введите условную структуру для проверки
если c[i]>0 то Kol:=Kol+1;
− после вывода массива , произведите вывод результата.
Обрати внимание на примерный протокол для выполнения результата

Вычитание выполнено в шестеричной системе счисления.

Объяснение:

Мы видим в данном выражении цифры до 4. Из этого следует, что система счисления использует не менее 5 цифр. То есть, она как минимум - пятиричная. Будем подбирать по порядку системы счисления и вычислять их значения.

Пятиричная система счисления:

1. Переводим в десятичную систему счисления:

102 = 25 * 1 + 5 * 0 + 1 * 2 = 25 + 0 + 2 = 27

14 = 5 * 1 + 1 * 4 = 5 + 4 = 9

2. Вычисляем в десятичной системе счисления:

27 - 9 = 18

3. Переводим в пятиричную систему счисления:

18 = 33

Вывод: данная система счисления не подходит.

Шестеричная система счисления:

1. Переводим в десятичную систему счисления:

102 = 36 * 1 + 6 * 0 + 1 * 2 = 36 + 0 + 2 = 38

14 = 6 * 1 + 1 * 4 = 6 + 4 = 10

2. Вычисляем в десятичной системе счисления:

38 - 10 = 28

3. Переводим в шестеричную систему счисления:

28 = 44

Вывод: данная система счисления подходит.

На строке 9 "if x>=-7.5 and x<2 then y:=(a*sqrt(abs(x+6))); " в том месте, где выделено жирным, компилятор думает, что необходимо произвести побитовое умножение числа с плавающей точкой типа real -7.5 и целого числа x. Т.к. побитовое умножение применимо только к целым числам, компилятор пытается преобразовать -7.5 к целому числу, т.е. к integer, и у него это не получается, о чем он Вам и говорит.

Чтобы он не думал, что Вы собираетесь производить побитовое умножение (ведь Вы хотите произвести логическую операцию между результатами двух сравнений), нужно занести в скобки выражения x>=-7.5 и x<2, чтобы получилась такая строка: "if (x>=-7.5) and (x<2) then y:=(a*sqrt(abs(x+6))); "