Question

Двумерный массив задается случайными целыми числами из диапазона от -75 до 132. Размерность массива устанавливается 10Х10. Вывести на экран индексы элементов, являющихся трехзначными числами; program z1; var a:array [1..10,1..10] of integer; i,j,:integer; begin randomize; for i:=1 to 10 do for j:=1 to 10 do begin a[i,j]:=-75+random(132); write (a[i,j],' '); end; for i:=1 to 10 do for j:=1 to 10 do If (a[i,j]>100)and (a[i,j]>100) Что нужно делать дальше?

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(10,10,-75,132);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes.Where(t->t[0].Between(100,999));
  foreach var t in s do Write('[',t[1]+1,',',t[2]+1,'] ')
end.

Пример
*** Исходный массив ***
  -3 -22 -17 105  33 -73  37 109  83 106
 -38  12 108  25  -8   0  97 -56 -24  10
  78 108   8   7  89 -54 108   3  24  86
 -31 -39  12 129  38  90  56  94 -26  84
  24  -4 -14   9  87 126  82 129  15 104
  20  68  61 -52  79  22 102 109 -59  12
 -48 -41   9 129  61 -74 132 112 120  34
  76 -72 103  25 118   6  47 132  53  95
  -4 112 120  53 -10  33  33 -11 -25 -60
 121  80  78  94  57 -10 120 -11  80  85
----------------------------------------
[1,4] [1,8] [1,10] [2,3] [3,2] [3,7] [4,4] [5,6] [5,8] [5,10] [6,7] [6,8] [7,4] [7,7] [7,8] [7,9] [8,3] [8,5] [8,8] [9,2] [9,3] [10,1] [10,7]

Answer 2

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

var
  a: array [1..10, 1..10] of integer;
  i, j: integer;

begin
  randomize;

for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      a[i, j] := -75 + random(132);
      write(a[i, j], ' ');
    end;
    writeln;
  end;

writeln('Индексы элементов, являющихся трехзначными числами:');

for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      if (a[i, j] >= 100) and (a[i, j] <= 999) then
        writeln('Индекс [', i, ',', j, ']');
    end;
  end;
end.

В этом коде мы сначала заполняем двумерный массив `a` случайными целыми числами из диапазона от -75 до 132. Затем мы выводим этот массив на экран. После этого мы проходим по массиву еще раз и проверяем каждый элемент на то, является ли он трехзначным числом. Если элемент удовлетворяет этому условию, мы выводим его индексы на экран.

Примечание: Ваш код содержит ошибку в условии проверки трехзначности числа. Вместо `If (a[i, j] > 100) and (a[i, j] > 100)` нужно использовать `if (a[i, j] >= 100) and (a[i, j] <= 999)`. Это позволит нам правильно определить трехзначные числа.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.