Внесите недостающие записив схему "компьютерные носители информации".: магнитные электронные cd dvd blu-ray

Магнитные                                            лазерные                                        электронные   дискеты                                                            cd                                                          флеш карта магнитный жесткий                                                                                                  твердотельный жесткий диск                                                                    dvd                                                        диск                                                                                     blu-ray

//pascalabc.net 3.0, сборка 1064 type   intarray = array of integer; var   rows, cols: integer;   m: array of intarray; begin   write('количество строк и столбцов матрицы: '); read(rows, cols);   var avg: array of double : = new double[cols];   m : = new intarray[rows];   setlength(avg, cols);   for var i : = 0 to rows - 1 do   begin       m[i] : = arrrandom(cols, -25, 25);       m[i].println(#9)   end;   for var j : = 0 to cols - 1 do       avg[j] : = range(0, rows - 1).select(x -> m[x, j]).average;   writeln('наименьшее среднее по столбцам равно ', avg.min) end. тестовое решение: количество строк и столбцов матрицы: 5 8 -22      -8      12      7      3      -18      8      22 2      -16      17      -13      -10      0      -19      2 20      -21      -6      13      2      -20      25      24 -7      -3      -2      -10      -2      8      18      23 4      -21      -8      8      23      -12      -13      -5 наименьшее среднее по столбцам равно -13.8

Const n=5; m=6; var a: array [1..n,1..m] of integer;     sum,min,i,j: integer; begin randomize; writeln(': '); for i: =1 to n do begin   for j: =1 to m do begin     a[i,j]: =random(20)-10;     write(a[i,j]: 6);   end;   writeln; end; writeln('среднее арифм. столбцов: '); min: =100000; for j: =1 to m do begin   sum: =0;   for i: =1 to n do sum: =sum+a[i,j];   write(sum/n: 6: 2);   if sum< min then min: =sum; end; writeln; writeln('min=',min/n: 6: 2); end.