Дан первый элемент массива С, вычисленный случайным образом. Сформировать массив С(N) в котором каждый последующий элемент массива меньше предыдущего на удвоенную размерность массива. Вывод ответа осуществить в столбец. 2) Дана таблица М(7,7). Заполнить её случайными числами. Найти общее произведение элементов стоящих в строках под четными номерами в таблице М. Вывести на экран исходную таблицу М.
Задание 1:
beginvar N := ReadInteger('N:');var C := ArrGen(n,Random(100),x->x-2*n); C.PrintLinesend.Задание 2:
beginvar M := MatrRandom(7,7,1,9); M.Rows[1::2].Product(x->x.Product).Println; M.Printend.Пример работы: