Хоть с чем-то 1. для следующего фрагмента программы: program prog; uses crt; const a: array[1..8] of integer=(2,9,15,-1,6,14,5,-9); var i,p: integer; begin clrscr; p: =1; for i: =1 to 8 do if a[i] mod 5=0 then p: =p*a[i]; write('p= ,p'); readln end. a) определить результат выполнения b) сформулировать условие c) составить блок-схему 2. элементы массива а(20) – целые случайные числа в диапазоне от –10 до 50. вывести сначала исходный массив, а затем все его отрицательные элементы не кратные числу 5. 3. дан одномерный массив t(85). заполнить его случайными целыми числами от –40 до 50 найти сумму четных значений элементов и заменить найденной суммой четные значения элементов. вывести на экран исходный и измененный и найденную сумму. 4. используя подпрограмму (процедуру или функцию) поиска минимального из двух чисел вычислить значение d=min(x-21,5y+1)-min(x5 +2,y4-10)