Дан целочисленный двумерный массив, размерности n x m. Вывести его элементы, индексы которых являются степенями двойки

Question

Информатика

Сеня

6 июля, 23:50

Дан целочисленный двумерный массив, размерности n x m. Вывести его элементы, индексы которых являются степенями двойки

+5

Ответы (1)

Знаете ответ?

Антигона · Answer 1

Const nx = 20; mx = 20; var x: array[1 ... nx, 1 ... mx] of integer; i, j, n, m, q, r: integer; k:boolean; b: array[0 ... nx] of integer; beginWriteln ('Введите число строк n ') ; Read (n) ; Writeln ('Введите число столбцов m ') ; Read (m) ; b[0]:=1; if n > = m thenfor i : = 1 to n do beginb[i]:=b[i-1]*2; q:=n; endelsefor i : = 1 to m do beginb[i]:=b[i-1]*2; q:=m; end; write (b:3) ; Randomize; Writeln; Writeln ('Исходный массив') ; for i : = 1 to n do begin for j : = 1 to m do begin x[i, j]:=Random (10) ; Write (x[i, j]:4) ; end; Writeln; end; Writeln; Writeln; for i : = 1 to n do begin for j : = 1 to m do begin for r:=0 to q do if (i = b[r]) or (j = b[r]) then k: = true; if k = true then Write (x[i, j]:4) else Write (' ') ; k:=false; end; Writeln; end; end.