1.Матрица.2.Строка.

uses crt;
var s:string;
    n,i:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
write('n=');readln(n);
for i:=1 to length(s)do
  begin
   if(i <= n div 2)and(s[i]=':') then s[i]:=',';
   if(i > n div 2)and(s[i]='!') then s[i]:='.';
  end;
write(s);
readln
end.

uses crt;
var s:string;
    i:integer;
    schet:boolean;
BEGIN
 ClrScr;
 WriteLn('Vvedite stroky');
 Readln(s);
 for i:=1 to length(s) do
  begin
  if i<=round(length(s)/2)
   then if s[i]=':'then s[i]:=',';
  if i>round(length(s)/2)
   then if s[i]='!' then s[i]:='.';
  end;
  writeln(s);
  Readln;
  END.

uses crt;
type matr=array[1..20,1..20] of real;
procedure Vvod(var m1:matr;var x:byte);
var i,j:byte;
begin
write('Размер матриц= ');
readln(x);
writeln('Исходная матрица A:');
for i:=1 to x do
 begin
  for j:=1 to x do
   begin
    m1[i,j]:=10*random;
    write(m1[i,j]:5:2);
   end;
  writeln;
 end;
end;
function Proiz(m1:matr;x:byte):real;
var i:byte;
    p:real;
begin
p:=1;
for i:=1 to x do
p:=p*m1[i,i];;
Proiz:=p;
end;
procedure New(m1:matr;x:byte;var m2:matr);
var i,j:byte;
begin
writeln('Созданная матрица В:');
for i:=1 to x do
 begin
  for j:=1 to x do
   begin
    if i > j then m2[i,j]:=m1[i,j]/Proiz(m1,x);
    if i=j then m2[i,j]:=0;
    if i < j then m2[i,j]:=Proiz(m1,x)/m1[i,j];
    write(m2[i,j]:10:4);
   end;
  writeln;
 end;
end;
var a,b:matr;
    n:byte;
begin
clrscr;
Vvod(a,n);
writeln('Произведение диагональных элементов=',Proiz(a,n):0:2);
New(a,n,b);
readln
end.

if i <=round(length(s)/2)
   then if s[i]=':'then s[i]:=',';
  if i >round(length(s)/2)
   then if s[i]='!' then s[i]:='.';