Заполнить двумерный массив nxn случайными числами из интервала [-10; 10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент

Program gulkakh; const n=5; var a: array[1..n,1..n] of integer;     i,j,k,max,stroka: integer; begin writeln('исходная матрица: '); for i: =1 to n do    for j: =1 to n do    begin      a[i,j]: =random(20)-10;       write(a[i,j],' ');       if j=n then writeln;     end;       stroka: =1; max: =a[1,1]; for i: =1 to n do for j: =1 to n do begin if max< a[i,j] then begin max: =a[i,j]; stroka: =i; end; end; k: =n; for i: =stroka to n-1 do for j: =1 to n do a[i,j]: =a[i+1,j]; k: =k-1; writeln('без удаленной строки: '); for i: =1 to k do    for j: =1 to n do begin   write(a[i,j],' ');   if j=n then writeln;   end; end.

2^i=64, i=6 бит

для кодирования 1 символа нужно 6 бит

8775 * 8 = 70200 бит занимает сообщение

70200 : 6 = 11700 символов в сообщении

найдем х - количество символов в строке

6 * 30 * х = 11700

180х = 11700

х = 65

ответ. в строке 65 символов.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.