Type mas=array[,] of integer; const n=5; m=6; var i,j,ik,jk,k: integer; a: mas; b: array[0..n-1]of integer; // массив begin setlength(a,n,m); writeln('массив: '); for i: =0 to n-1 do begin for j: =0 to m-1 do begin a[i,j]: =random(20); write(a[i,j]: 4); end; writeln; end; writeln('вставка строк: '); // в массиве b признак наличия в строке 1-го четного for i: =0 to n-1 do if a[i,0] mod 2=0 then b[i]: =1; for i: =0 to n-1 do k: =k+b[i]; k: =n+k-1; setlength(a,k+1,m); ik: =k; for i: =n-1 downto 0 do begin if b[i]=1 then begin for jk: =0 to m-1 do a[ik,jk]: =1; ik: =ik-1; end; for jk: =0 to m-1 do a[ik,jk]: =a[i,jk]; ik: =ik-1; end; for i: =0 to k do begin for j: =0 to m-1 do write(a[i,j]: 4); writeln; end; end.
Boris1247
09.12.2022
Var i,n: integer; s: real; begin randomize; writeln('исходные числа'); s: =0; for i: =1 to 15 do begin n: =random(100)-50; write(n: 4); s: =s+n end; s: =s/15; writeln; writeln('среднее арифметическое равно ',s) end. тестовое решение: исходные числа -5 -41 -36 44 -2 8 -24 10 0 20 -8 15 14 35 44 среднее арифметическое равно 4.93333333333333