посчитайте , program z2;var f:array[1. . 80] of real;n, a, p: integer;beginn:=7;for a: =1 to n dobeginf[a]:=random(31)-20;writeln (f[a]);end;p:=0;for a:=1 to n doif f[a]<0 then p:=p+1;writeln (р);end. Определите имя массиваУкажите тип элементов массива. Запишите максимальное возможное количество элементов в массиве. Какой переменной обозначены индексы элементов массива. Запишите количество элементов в данном массиве. Как обозначается текущий элемент массива. Запишите промежуток чисел, из которого выбираются элементы массива случайным образом. Определите тип переменной, в которой сохраняется результат. Что вычисляет данная программа.