Дан алгоритм для Робота:

алг
нач
нц 31 раз
вправо; закрасить
кц
кон

Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 31 клеток вправо.
Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 31 клеток вправо и закрасит эти клетки.
Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 31 клеток влево и закрасит эти клетки.
Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки.

Короче. Вот код.

def matrix_gen(gen, n, m):    Matrix = [];    for i in range(n):        a = [];        for j  in range(m):            a.append(gen[j]);        Matrix.append(a);    return Matrix;

Объяснение

Сначало ты инициализируешь функицю с названием "matrix_gen", которая принимает 3 параметра, 'gen' -- это генератор которые ты будешь использовать. 'n' & 'm' это размер матрицы.

Второй строчкой ты инициалихируешь пустой массив, которые похже заполнишь. Третей строчкой ты в for цикле обходишь все строки матрицы, они же подмассивы массива  Matrix, просто 'a'. Делаем мы это 'n' раз.

Четвётрой строчкой ты инициализируешь массив(ы, мы в цикле) 'a', и следующей строчкой заполняешь уже его. Так же в for цикле. Всего в нём будет 'm' элементов.

Надеюсь решение правильное. Честно говоря у тебя вопрос очень странно поставлен.

Program task1;
const  n = 30;
var  a :array [1..n] of integer; 
 i, p :integer; 
pr :real;
begin
 randomize; 
 for i:= 1 to n do   
a[i]:= random(33)-7; 
p:= 1;  for i:= 1 to n do   
if a[i] > 0 then     
p:= p * a[i]; 
pr:= p/2; 
writeln(pr);
end.

program task2;
const  n = 30;
var  a: array [1..n] of integer; 
i, sum, max, min: integer; 
sr: real;
begin
randomize; 
for i := 1 to n do   
a[i] := random(33) - 7;   
sum:= 0; 
 for i := 1 to n do   
if a[i] >= 0 then     
sum:= sum + sqr(a[i]); 
min:= a[1];  max:= a[1]; 
for i := 1 to n do  begin   
if a[i] > max then max:= a[i];   
if a[i] < min then min:= a[i]; 
end; 
sr:= (max + min)/2; 
writeln('Сумма кадратов: ',sum); 
writeln('Среднее арифметическое: ',sr);  
end.