Постройте блок схему для этой : расстояние до ближней к земле звезды "альфа центавра" = 4, 3 световых года; скорость света (u) = 300.000 км/с; скорость звездолёта (u) = 100 м/с. за сколько лет звездолёт долетит до неё? (4.3*300000)/100 = 4.3*3000 = 4.3*3*1000 = 12.9*1000 = 12900 годов

//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.