Question

ПАСКАЛЬ 70 БАЛЛов. Получить квадратную матрицу порядка 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 с числом 70 в каждой ячейке, вы можете использовать язык программирования Pascal (как указано в вашем запросе) или любой другой язык программирования. Ниже приведен пример кода на языке Pascal, который создаст такую матрицу:

pascalCopy code
program GenerateMatrix;

const
  n = 5; // Задайте желаемый порядок матрицы (например, 5 для 5x5)

var
  matrix: array[1..n, 1..n] of Integer;
  i, j: Integer;

begin
  // Заполнение матрицы значением 70
  for i := 1 to n do
    for j := 1 to n do
      matrix[i, j] := 70;

  // Вывод матрицы на экран
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(matrix[i, j]:4); // Форматируем вывод для более читаемого вида
    Writeln;
  end;
end.

Приведенный выше код создаст квадратную матрицу размером 5x5 (вы можете изменить значение n на желаемое) и заполнит ее числами 70. Результат будет выглядеть примерно так:

Copy code
  70  70  70  70  70
  70  70  70  70  70
  70  70  70  70  70
  70  70  70  70  70
  70  70  70  70  70

Вы можете скомпилировать и запустить этот код с помощью среды разработки Pascal (например, Free Pascal) или онлайн компиляторов для Pascal.