Question

Решение в паскале Массив 5х10 заполнить случайными числами [0;10]. Найти строку, в которой сумма элементов максимальна и заменить в этой строке все числа на 0.

Answer 1

const g=5;v=10;

var i,j,s,m,mi:integer;

a:array [1..g,1..v] of integer;

begin

for i:=1 to g do

begin

for j:=1 to v do

begin

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

if i=1 then s:=s+a[i,j];

write (a[i,j]:3)

end;

writeln

end;

writeln;

writeln;

m:=s;

mi:=1;

for i:=1 to g do

begin

s:=0;

for j:=1 to v do s:=s+a[i,j];

if s>m then

begin

m:=s;

mi:=i

end

end;

for i:=1 to g do

begin

for j:=1 to v do

begin

if i=mi then a[i,j]:=0;

write (a[i,j]:3)

end;

writeln

end;

end.

Answer 2

Для решения этой задачи в Pascal, вам потребуется создать и заполнить массив, найти строку с максимальной суммой элементов и заменить все числа в этой строке на 0. Вот пример решения:

pascalCopy code
program MaxSumRow;

const
  ROWS = 5;
  COLS = 10;

var
  matrix: array[1..ROWS, 1..COLS] of Integer;
  rowSum: array[1..ROWS] of Integer;
  i, j, maxSumRow, maxSum: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      matrix[i, j] := Random(11); // Генерируем случайное число от 0 до 10
      Write(matrix[i, j]:4);
    end;
    Writeln;
  end;

  // Находим сумму элементов в каждой строке
  for i := 1 to ROWS do
  begin
    rowSum[i] := 0;
    for j := 1 to COLS do
      rowSum[i] := rowSum[i] + matrix[i, j];
  end;

  // Находим строку с максимальной суммой элементов
  maxSumRow := 1;
  maxSum := rowSum[1];
  for i := 2 to ROWS do
  begin
    if rowSum[i] > maxSum then
    begin
      maxSum := rowSum[i];
      maxSumRow := i;
    end;
  end;

  // Заменяем все элементы в строке с максимальной суммой на 0
  for j := 1 to COLS do
    matrix[maxSumRow, j] := 0;

  Writeln('Строка с максимальной суммой элементов: ', maxSumRow);
  Writeln('Матрица после замены:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      Write(matrix[i, j]:4);
    Writeln;
  end;
end.

Обратите внимание, что результаты могут быть разными при каждом выполнении программы, так как используется генератор случайных чисел. Однако строка с максимальной суммой элементов всегда будет найдена и заменена на 0.