Question

11 Паскаль Заполнить и вывести матрицу 4х4 случайными числами от 10 до 99. Просуммировать первую строку чисел и вывести результат.

Answer 1

const n=4;

var

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

 i,j,sum:integer;

begin

 for i:=1 to n do

   begin

     for j:=1 to n do  

       begin

         a[i,j]:=random(90)+10;

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

       end;

     writeln;

   end;

 sum:=0;

 for i:=1 to n do

   sum:=sum+a[1,i];

 writeln;

 writeln('sum:',sum);

end.

Answer 2

Вот пример кода на языке Паскаль, который выполняет указанные вами задачи:

pascalCopy code
program RandomMatrix;

const
  SIZE = 4;

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

begin
  Randomize;

  // Заполняем матрицу случайными числами от 10 до 99
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
    begin
      matrix[i, j] := Random(90) + 10; // Генерируем случайное число от 10 до 99
    end;
  end;

  // Выводим матрицу
  writeln('Сгенерированная матрица:');
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
    begin
      write(matrix[i, j]:4);
    end;
    writeln;
  end;

  // Суммируем первую строку чисел
  sum := 0;
  for j := 1 to SIZE do
  begin
    sum := sum + matrix[1, j];
  end;

  // Выводим результат суммирования
  writeln('Сумма первой строки: ', sum);

  readln;
end.

После выполнения программы вы получите матрицу 4x4, заполненную случайными числами от 10 до 99, а также сумму чисел в первой строке.