Question

30 БАЛЛОВ ПАСКАЛЬ 10 КЛАСС Получить квадратную матрицу порядка n* n.

Answer 1

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b:masiv;

procedure vved(n:byte; var a masiv);

var i,j:byte;

begin

randomize;

for i:=1 to n do

for j:=1 to n do

a[i,j]:=0;

for j:=round(n/2) to n do

for i:=n-j+1 to j do

a[i,j]:=random(255);

end;

proceure vuvid(n:byte;:masiv);

var i,j:byte;

begin

for i:=1 to  do

begin

for j:=1 to n do

write(a[i,j]:5);

riteln;

end;

end;

procedure rahnok(n:byte; a:masiv);

var i,j:byte; s,l:byte;

begin

l:=0;

for j:=1 to round(n/2) do

for i:=j to (n-j+1) do

if (a[i,j] mod 2=0) then l:=l+1;

writeln('kilkist=' l);

Answer 2

Для того чтобы получить квадратную матрицу порядка n*n в Pascal, можно использовать алгоритм треугольника Паскаля. В каждой ячейке матрицы будет храниться число, равное сумме двух чисел, расположенных над ним в предыдущем столбце. Начальные и конечные элементы каждой строки будут равны 1. Вот пример кода на языке Python:

pythonCopy code
def generate_pascal_matrix(n):
    matrix = [[1] * n for _ in range(n)]
    for i in range(2, n):
        for j in range(1, i):
            matrix[i][j] = matrix[i-1][j-1] + matrix[i-1][j]
    return matrix

def print_matrix(matrix):
    for row in matrix:
        print(" ".join(str(num) for num in row))

n = 5  # Замените это значение на нужный вам порядок матрицы
pascal_matrix = generate_pascal_matrix(n)
print_matrix(pascal_matrix)

Здесь n - это порядок квадратной матрицы, которую вы хотите получить. В коде приведен пример для матрицы порядка 5, но вы можете заменить значение n на любое другое целое число, чтобы получить матрицу нужного размера.