Question

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

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.