Question

Дан первый элемент массива С, вычисленный случайным образом. Сформировать массив С(N) в котором каждый последующий элемент массива меньше предыдущего на удвоенную размерность массива. Вывод ответа осуществить в столбец. 2) Дана таблица М(7,7). Заполнить её случайными числами. Найти общее произведение элементов стоящих в строках под четными номерами в таблице М. Вывести на экран исходную таблицу М.

Answer 1

PascalABC.NET

Задание 1:

• begin
• var N := ReadInteger('N:');
• var C := ArrGen(n,Random(100),x->x-2*n);
• C.PrintLines
• end.

Задание 2:

• begin
• var M := MatrRandom(7,7,1,9);
• M.Rows[1::2].Product(x->x.Product).Println;
• M.Print
• end.

Пример работы: