Братаны начертите блок-схему радиусом r2 определите диаметр круга

program mn;

uses crt;

const m=7;n=9;

var mas:array[1..m,1..n] of Integer ;

m1, m2:array[1..n] of Integer ;

i, j, k:Integer;

begin

Randomize;

write('Исходный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do begin

mas[i, j]:=random(100);

write(mas[i, j]:3) end end ;

j:=0;

repeat

for i:=1 to n do begin

m1[i]:=mas[1+j,i];

m2[i]:=mas[m-j,i];

mas[1+j,i]:=m2[i];

mas[m-j,i]:=m1[i]; end;

j:=j+1

until j>m div 2;

writeln;

write('Преобразованный массив:') ;

for i:=1 to m do begin

writeln;

for j:=1 to n do

write(mas[i, j] :3) end;

readln;

end.

Объяснение:

В разделе const задаем нужный размер исходного массива.

Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do  
   for j := 1 to n do      
       begin           
           read(a[i,j]);           
           if (a[i,j] > max) then              
               max := a[i,j];           
          if (a[i,j] < min) then             
               min := a[i,j];      
        end;      
 writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);End.