2) дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. получить min(a1*a16, a2*a15, …, a8*a9

Тоже делаю но знаю ответ только на 1,3,4 и 7 так себе 1) в 1666 г. в московской пищепитательнице при церкви ковра (павла) и иоанна поселился воинственный барабашка – демон. царь алексей михайлович велел священными молитвами изгнать злокозненного духа. митрополит илларион  3) мыс "бурь" или же по другому мыс  " доброй надежды" частые грозы, дожди и ураганы, а так же затуманенность приводили к гибели кораблей( уточняю, что таких как этот мыс есть еще несколько. но не возможно понять какой именно, мне кажется этот более подходящий) явление миража происходили из-за тумана.4) меркурий. за 176 дней делает оборот вокруг солнца. то есть одни сутки этой планеты длятся два ее года.7)  известно  что длинношерстные тойтерьеры    разводились в москве, точнее их там вывели. 

// дан целочисленный массив x(n,m).среди элементов нечетных столбцов массива найти количество четных чисел. program asd; uses crt; const n=4;           m=4; var x: array[1..n, 1..m] of integer; i,j,k: integer; begin for i: =1 to n do   begin   for j: =1 to m do     begin       x[i,j]: =random(10);       write(x[i,j]: 3);     end;     writeln;   end;   for i: =1 to n do     for j: =1 to m do       begin           if x[i,j] mod 2 = 0 then k: =k+1;       end;     writeln('кол-во четный элементов в массиве: ',k); end.