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

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

Задать свой вопрос
Владик Комзолов
Какой язык?
Nikitka
Паскаль
Галя Трудненко
ок
Евгения Габриэльян
оба индекса должны быть ступенью двойки?
Елизавета Прендкевич
Видимо да
Илья
ок
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 gt;= 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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт