Вопрос по информатике:
Дана квадратная матрица 9-ого порядка. Получить квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы меньше элемента, расположенного в его строке на главной диагонали, и равен нулю в противном случае.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.10.2017 02:43
- Информатика
- remove_red_eye 12447
- thumb_up 8
Ответы и объяснения 1
Const
n = 9;
var
a: array[1..n, 1..n] of integer;
i, j, aii: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
Writeln('Результирующий массив');
for i := 1 to n do
begin
aii:=a[i,i];
for j:=1 to n do
begin
if a[i,j]
end;
Writeln
end
end.
Тестовое решение:
Исходный массив
-11 19 48 32 -6 -39 -45 -13 -27
44 20 -44 27 -50 14 -19 -12 32
2 48 -16 40 -8 -38 35 -15 41
-1 -24 -18 35 -49 -11 22 -4 -1
36 -26 -8 -2 -9 -17 41 44 -13
0 -25 -6 -35 -18 -6 -28 46 44
5 -1 -23 36 47 -41 -30 7 -39
41 -41 19 17 -45 5 -35 -4 -36
-11 -46 6 -50 49 -2 26 -15 -40
Результирующий массив
0 0 0 0 0 1 1 1 1
0 0 1 0 1 1 1 1 0
0 0 0 0 0 1 0 0 0
1 1 1 0 1 1 1 1 1
0 1 0 0 0 1 0 0 1
0 1 0 1 1 0 1 0 0
0 0 0 0 0 1 0 0 1
0 1 0 0 1 0 1 0 1
0 1 0 1 0 0 0 0 0
- 15.10.2017 08:35
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.