Двумерный массив задается случайными целыми числами из диапазона от -75 до
Двумерный массив задается случайными целыми числами из спектра от -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]gt;100)and (a[i,j]gt;100)
Что необходимо делать далее?
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-gt;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]
// Внимание! Если программка не работает, обновите версию!
begin
Writeln('*** Начальный массив ***');
var a:=MatrRandom(10,10,-75,132);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(t-gt;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]
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов