Решить в заданной матрице заменить к-ю строку и l-й столбец нулями, кроме элемента, расположенного на их пересечении.

Var k,l,i,j,m: integer;   a: array[1..10,1..10] of integer;   begin  randomize;   for i: =1 to 10 do  for j: =1 to 10 do  a[i,j]: =random(10)-5;   for i: =1 to 10 do  begin  for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   write('k=');   readln(k);   write('l=');   readln(l);   m: =a[k,l];   for i: =1 to 10 do  for j: =1 to 10 do  if k=i then a[i,j]: =0 else if l=j then a[i,j]: =0;   a[k,l]: =m;   for i: =1 to 10 do  begin  for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   end.

Const   n=5; var   m: array[1..n] of byte; function itog(): real; var   i,max,min,s: byte; begin   s: =m[1]; max: =s; min: =s;   for i: =2 to n do begin       s: =s+m[i];       if max< m[i] then max: =m[i]       else           if min> m[i] then min: =m[i]   end;   s: =s-max-min;   itog: =s/(n-2) end; var   i: byte; begin   writeln('введите экспертные оценки');   for i: =1 to n do read(m[i]);   writeln('итоговый равен ',itog: 4: 2) end. тестовое решение: введите экспертные оценки 4 4 5 3 5 итоговый равен 4.33

Ппррл       -              пр                        -            лпр ппрл              -                р р                        -        ппрл ррл                  -      пп         -      ппрр п-путешественник р-разбойник л-лодка