Уважаемый Pozhidaevad! Приглашаем Вас и Ваших близких на концерт красивой музыки «За подвиг, мама я тебя благодарю!» с участием Лауреата Всероссийских и Международных фестивалей и конкурсов Хоровой школы мальчиков «ДЕБЮТ», Хора девочек «СОЛЬБА» детского приюта Николо-Сольбинского Монастыря и творческих коллективов в рамках Международного дня людей с ограниченными возможностями здоровья.
Будем рады видеть Вас 29 марта 2017 года в 18:00 в Большом концертном зале Московского городского Дворца детского твочества на Воробьевых горах по адресу: ул. Косыгина, д.17
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.
А где команды? Ты наверное не все задание переписал(а)