Полное имя файла с: .doc.его переместили в каталог tasks корневого каталога диска d: .каким стало полное имя файла после перемещения? а)d: .txt? б) d: .doc. в)d: .doc. г) d: .doc

Б - перемещали только файл, расширение файла не меняли.

Const
  m1 = 20;
  n1 = 20;

var
  a: array[1..m1, 1..n1] of integer;
  b: array[1..m1] of real;
  i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer;

begin
  Write('Введите через пробел число строк и столбцов массива: ');
  Readln(m, n);
  max := -32768; min := 32767;
  for i := 1 to m do
  begin
    Write('Строка ', i, ': ');
    for j := 1 to n do
    begin
      Read(t);
      a[i, j] := t;
      if max < t then begin max := t; imax := i; jmax := j end
      else if min > t then begin min := t; imin := i; jmin := j end
    end
  end;
  a[imax, jmax] := min; a[imin, jmin] := max;
  Writeln('Результирующий массив');
  for i := 1 to m do
  begin
    s := 0; kn := 0;
    for j := 1 to n do
    begin
      Write(a[i, j]:6);
      if a[i, j] < 0 then begin s := s + a[i, j]; Inc(kn) end
    end;
    Writeln;
    if kn > 0 then b[i] := s / kn else b[i] := 0
  end;
  Writeln('Среднее арифметическое отрицательных элементов построчно:');
  for i := 1 to m do Writeln(b[i]:10:4)
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 4 6
Строка 1: 5 -3 0 7 11 -4
Строка 2: 14 -12 -7 13 11 18
Строка 3: 3 11 8 -14 25 15
Строка 4: 15 0 -17 21 0 -21
Результирующий массив
     5    -3     0     7    11    -4
    14   -12    -7    13    11    18
     3    11     8   -14   -21    15
    15     0   -17    21     0    25
Среднее арифметическое отрицательных элементов построчно:
   -3.5000
   -9.5000
  -17.5000
  -17.0000

Var
  m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
  s:real;
  a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
  begin
  writeln('Вводите элементы строки ',i,' по одному');
  for j:=1 to n do    readln(a[i,j]);
  end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
  for j:=1 to n do
    begin
    if a[i,j]<min then
      begin
      min:=a[i,j];
      imn:=i;
      jmn:=j;
      end;
    if a[i,j]>max then
      begin
      max:=a[i,j];
      imx:=i;
      jmx:=j;
      end;
    end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
  begin
  for j:=1 to n do    write(a[i,j]:5);
  writeln;
  end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
  if a[i,j]<0 then
    begin
    s:=s+a[i,j];
    k:=k+1;
    end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);  
end.