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.
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var (imin,imax):=(a.IndexMin,a.IndexMax); Print('1:'); a?[:imax].OrderBy(t->t).Println; Print('2:'); a?[:imin].OrderBy(t->t).Println; Print('3:'); if imax>imin then Swap(imax,imin); a?[imax+1:imin].OrderByDescending(t->t).Println end.
