Question

Заполнить массив NХM случайными числами из отрезка [1, Т]. Вывести k-ю строку массива(записать на языке Paskal через процедуру)

Answer 1

const

 N=5;

 M=3;

type matr=array [1..N,1..M] of integer;

var

 a:matr;

 t,k:integer;

procedure Random(var b:matr; var l,p:integer);

 var i,j:integer;

 begin

   for i:=1 to N do

     begin

       for j:=1 to M do

         begin

           a[i,j]:=random(l)+1;

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

         end;

       writeln;

     end;

   writeln;

   for j:=1 to M do

     write(a[p,j]:4);

 end;

begin

 write('Введите длину отрезка(t): '); readln(t);

 write('Введите интересующую строку(k): ');readln(k);

 Random(a,t,k);

 writeln;

end.

В задании не требуется выводить всю матрицу, но для проверки оставил. Убери, если критично, но правильность работы программы не проверить будет

Answer 2

Вот пример кода на языке Pascal, который заполняет двумерный массив размером N x M случайными числами из отрезка [1, T] и выводит k-ю строку массива:

pascalCopy code
program RandomArray;

const
  N = 5;  // количество строк
  M = 5;  // количество столбцов
  T = 10; // верхняя граница случайных чисел
  K = 3;  // номер строки для вывода

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

procedure FillRandomArray(var arr: TArray; maxVal: Integer);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to N do
    for j := 1 to M do
      arr[i, j] := Random(maxVal) + 1;
end;

procedure PrintRow(const arr: TArray; row: Integer);
var
  j: Integer;
begin
  for j := 1 to M do
    Write(arr[row, j], ' ');
  Writeln;
end;

var
  randomArray: TArray;
begin
  FillRandomArray(randomArray, T);
  PrintRow(randomArray, K);
end.

В этом примере массив размером N x M заполняется случайными числами с помощью процедуры FillRandomArray. Затем процедура PrintRow выводит k-ю строку массива на экран. Вы можете изменить значения констант N, M, T и K, чтобы подстроить программу под свои нужды.