Напишите программу, которая заполняет с клавиатуры массив а(3,3) словами разного размера и заменяет самое короткое слово главной диагонали на максимальное по длине слово всего массива. выведите на экран исходный и полученный массивы.

Pascalabc.net const      n = 3;         var    a : array [1..n,1..n] of string;     smax : string;     i,j,lmin,lmax,km : integer;       begin  lmax : = 0;   smax : = '';       for i : = 1 to n do    for j : = 1 to n do    begin      readln (a[i,j]);       if length (a[i,j]) > lmax then        begin        smax : = a[i,j];         lmax : = length (a[i,j]);         end;             end;       lmin : = length (a[1,1]);   km : = 1;   for i : = 2 to n do    if length (a[i,i]) < lmin then    begin      lmin : = length (a[i,i]);       km : = i;     end;           writeln ();   for i : = 1 to n do    begin    for j : = 1 to n do      write (a[i,j],' ');     writeln ();     end;   writeln ();         for i : = 1 to n do    begin    for j : = 1 to n do      if (i = km) and (j = km) then      write (smax,' ')      else      write (a[i,j],' ');     writeln ();     end;       end.

1. #include < iostream> #include < stdio.h> #include < math.h> using namespace std; int main() { long double a,b,c; setlocale(lc_all,"russian"); cout < < "введите катеты теугольника "; cin> > a> > b; c=sqrtl(a*a+b*b); cout< < "гепотенуза равна "< < c; return 0; } 2.   #include < iostream> #include < stdio.h> #include < math.h> using namespace std; int main() { long double a,s,v; setlocale(lc_all,"russian"); cout < < "введите ребро куба "; cin> > a; s=6*a*a; v=a*a*a; cout< < "площадь поверхности равна "< < s< < ", объем куба равен "< < v< < "."; return 0; } 3. #include < iostream> #include < stdio.h> #include < math.h> using namespace std; int main() { long double a,b,time; setlocale(lc_all,"russian"); cout < < "введите размер наследства и трату в месяц "; cin> > a> > b; time=a/(b*12) cout< < "наследства хватит на "< < time< < " лет"; return 0; }