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

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

Если условие перевести на , то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). другими словами, найти минимальное и максимальное из трех заданных чисел. program z; var min,max,x: real;     i: integer; begin readln(x);   {ввод первого числа} min: =x;       {принять первое число за минимум на начало счета} max: =x;       {принять первое число за максимум на начало счета} for i: =2 to 3 do    {считать остальные два числа} begin   readln(x);         {ввести очередное число}   if x> max then max: =x;   {если введенное число больше текущего максимума, считать его максимумом}   if x< min then min: =x;   {если введенное число меньше текущего минимума, считать его минимумом} end; writeln('min=',min);       {вывод минимума} writeln('max=',max);       {вывод максимума} end. замечание. программа не использует массив, т.к. чисел всего три. в более общем случае лучше ввести числа в массив и выполнить его сортировку. вариант без цикла и с отдельными переменными для каждого числа program z1; var min,max,x,y,z: real; begin readln(x);   {ввод первого числа} min: =x;       {принять первое число за минимум на начало счета} max: =x;       {принять первое число за максимум на начало счета} readln(y);         {ввести второе число} if y> max then max: =y;   {если введенное число больше текущего максимума, считать его максимумом} if y< min then min: =y;   {если введенное число меньше текущего минимума, считать его минимумом} readln(z);         {ввести третье число} if z> max then max: =z;   {если введенное число больше текущего максимума, считать его максимумом} if z< min then min: =z;   {если введенное число меньше текущего минимума, считать его минимумом} writeln('min=',min);       {вывод минимума} writeln('max=',max);       {вывод максимума} end.