Const n=10; var a: array[1..n+1] of integer; k,i: integer; b: boolean; begin randomize; for i: =1 to n do begin a[i]: =random(21)-10; write(a[i]: 4); end; writeln; write('введите число: '); readln(k); b: =false; for i: =1 to n do if a[i]=k then b: =true; if not b then begin for i: =n+1 downto n div 2 + 1 do a[i]: =a[i-1]; a[n div 2]: =k; for i: =1 to n+1 do write(a[i]: 4); writeln; end else writeln('массив не изменился'); end. пример: 6 10 -5 -3 -9 -8 -3 3 -9 7 введите число: 4 6 10 -5 -3 4 -9 -8 -3 3 -9 7
Arsen0708
14.04.2022
Const n=4; m=3; var a: array[1..n,1..m] of integer; i,j,k: integer; begin k: =17; for j: =1 to m do begin if j mod 2 < > 0 then for i: =1 to n do begin k: =k-1; a[i,j]: =k; end else for i: =n downto 1 do begin k: =k-1; a[i,j]: =k; end; end; for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 4); writeln; end; end. результат: 16 9 8 15 10 7 14 11 6 13 12 5