Question

Пожалуйста решение в Turbo/Free pascal Массив 3х5 заполнить случайными числами [-10;10]. Заменить числом 555 все числа, у которых сумма индексов чётная.

Answer 1

program a2;

var

 a: array [1..3, 1..5] of integer;

 i, j: integer;

begin

 for i := 1 to 3 do

   for j := 1 to 5 do

     a[i, j] := random(21) - 10;

 for i := 1 to 3 do

 begin

   for j := 1 to 5 do

   begin

     if (i + j) mod 2 = 0 Then

       a[i, j] := 555;

     write(a[i, j], ' ');

   end;

   writeln;      

 end;

end.

Answer 2

Для решения этой задачи в Turbo/Free Pascal, мы можем использовать следующий код. В нем мы сначала заполняем массив случайными числами от -10 до 10, а затем заменяем числа, у которых сумма индексов является четной, на число 555.

pascalCopy code
program ReplaceEvenSumIndices;

const
  Rows = 3;
  Cols = 5;

var
  arr: array[1..Rows, 1..Cols] of Integer;
  i, j: Integer;

{ Function to generate random numbers in the range [minValue, maxValue] }
function RandomInRange(minValue, maxValue: Integer): Integer;
begin
  RandomInRange := Random(maxValue - minValue + 1) + minValue;
end;

begin
  Randomize;

  { Fill the array with random numbers from -10 to 10 }
  for i := 1 to Rows do
    for j := 1 to Cols do
      arr[i, j] := RandomInRange(-10, 10);

  { Display the original array }
  Writeln('Original Array:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(arr[i, j]:4);
    Writeln;
  end;

  { Replace numbers with even sum of indices with 555 }
  for i := 1 to Rows do
    for j := 1 to Cols do
      if ((i + j) mod 2 = 0) then
        arr[i, j] := 555;

  { Display the modified array }
  Writeln('Modified Array:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(arr[i, j]:4);
    Writeln;
  end;

  Readln;
end.

Здесь мы используем вложенные циклы для заполнения массива случайными числами и заменяем числа с четной суммой индексов на 555.