Question

Всем доброго карантина! Помогите пожалуйста я только учусь и узнаю у вас очень много! Задание:Есть глобальный массив "М" 10 на 10 целых чисел Написать подпрограмму, которая заполнит этот массив (М) числом,которое дадут при вызове подпрограммы (заранее неизвестно)ПОЖАЛУЙСТА НАПИШИТЕ ВСЮ ПРОГРАММУ!ПАСКАЛЬ!

Answer 1

const

 nmax = 100;

 n = 10;

var

 a: array[1..nmax, 1..nmax]of integer;

var

 i, j: byte;

begin

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     A[i, j] := Random(-10, 10);

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

   end;

   writeln;

 end;

end.

Тестовое решение

  -2    7  -10   -3   -4    6   -6    8    0    8

  10   -8   10    2   -2    7   -8   -7    5    9

  -4    4    3   -8   -4   -4   -8    7    1   10

  -8    3   -5    0    3   -9   -7    1   -7   -4

   2    2    8   -2    1   10   -7    7    6    7

  -6   -2    9    8   -4    4   -6    8   -9   10

   4   -3   -4    1    5   -3    7    0   10   -4

   3    2   10   -1   -3    4    7   -5    2   -3

  -8   -4   -9    5    6    4    4   -2   -7    9

   8   -4    0   -7    3   -6   -5   -3    3   -6

Answer 2

Конечно, помогу с написанием программы на Паскале. Для заполнения глобального массива "М" числом, которое передадим в подпрограмму, вам понадобится следующий код:

pascalCopy code
program FillArray;

const
  N = 10; // Размер массива

type
  TArray = array[1..N, 1..N] of Integer;

var
  M: TArray; // Глобальный массив

// Подпрограмма для заполнения массива числом value
procedure FillArrayWithValue(var arr: TArray; value: Integer);
var
  i, j: Integer;
begin
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := value;
end;

begin
  // Тестовое значение для заполнения массива (можно изменить на другое число)
  // Например: 42, 0, -1, и т.д.
  const testValue = 42;

  // Вызов подпрограммы для заполнения массива числом testValue
  FillArrayWithValue(M, testValue);

  // Вывод массива на экран для проверки
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(M[i, j]:4);
    Writeln;
  end;
end.

В данном коде определена подпрограмма FillArrayWithValue, которая заполняет переданный массив arr числом value. В основной программе мы задаем значение testValue, которое будет использовано для заполнения массива M. Затем вызываем подпрограмму FillArrayWithValue и передаем ей массив M и значение testValue.

Обратите внимание, что здесь мы используем глобальный массив M, чтобы он был доступен как в основной программе, так и в подпрограмме. Если вам необходимо передать массив в подпрограмму и получить его измененное значение обратно, можно использовать параметр var arr: TArray в определении подпрограммы.