1. нахождение наибольшего элемента главной диагонали. (паскаль, двумерные массивы ) 2. нахождение наименьших элементов в столбцах массива. (паскаль, двумерные массивы )

Всё, что находится между комментариями {1+}{1-} относится к первой программе, {2+}{2-} — ко второй. const   n = 5;   type   matrix = array[1..n, 1..n] of integer;   {2+}   row = array[1..n] of integer;   {2-}   {1+} function maxelemofmaindiag(m: matrix): integer; var   i, max: integer; begin   max : = m[1, 1];   for i : = 2 to n do     if m[i, i] > max then        max : = m[i, i];   maxelemofmaindiag : = max; end; {1-}   {2+} function minelemofcolumns(m: matrix): row; var   i, j: integer;   r: row; begin   for i : = 1 to n do   begin     r[i] : = m[1, i];     for j : = 2 to n do       if m[j, i] < r[i] then         r[i] : = m[j, i];   end;   minelemofcolumns : = r; end; {2-}   var   m: matrix;   {2+}   r: row;   {2-}   i, j: integer;   begin   writeln('исходный массив: ');   randomize;   for i : = 1 to n do   begin     for j : = 1 to n do     begin       m[i, j] : = random(100) + 1;       write(m[i, j]: 4);     end;     writeln;   end;   {1+}   writeln('максимальный элемент главной диагонали равен ', maxelemofmaindiag(m));   {1-}   {2+}   r : = minelemofcolumns(m);   writeln('минимальные элементы столбцов: ');   for i : = 1 to n do     write(r[i]: 4);   writeln;   {2-} end.   пример вывода: исходный массив:   22  13  80  77  14   50  86  49  22    7   88  68  48  27  79   100    3  11  43  94   85  30  53  34    9 максимальный элемент главной диагонали равен 86 минимальные элементы столбцов:   22    3  11  22    7

20 =   10100 = 24 = 14

9=            1001  = 11  =   9

 

20+9

  двоичная                  8-ричн  16-рич

10100 + 1001 = 24+11= 14+9 = 29    (десятичная)

 

20-9

10100 - 1001 = 24-11= 14-9 = 11

 

20*9

10100 + 1001 = 24+11= 14+9 = 180

80= 1010000 = 120 = 50

1=      1          =        1    =   1

 

80+1= 1010000+1 = 120+1  =  50+1  =   81 (ответ везде в десятичной)

80-1= 1010000-1 = 120-1  =  50-1        =  79

80*1= 1010000*1 = 120*1  =  50*1    =  80

 

Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.