составить блок-схему

[arshavin]

Program matrix;
const m=3; {stolbci}
const n=3; {stroki}
Type Matrix=array [1..n,1..m] of integer;

var myarray:matrix;
    S:integer;


procedure vvod  (var mas:matrix);
var i,j:integer;
 begin
  writeln('Vvedi massiv razmernostu:',n,'x',m);
  for i:=1 to n do
   for j:=1 to m do
    read(mas[i,j]);
 end;


function Summa (mas:matrix):integer;
var i,j,k:integer;
    Sum:integer;
    otr:boolean; {est' li otricatel'nii element}
 begin
  Sum:=0;
   for i:=1 to n do
    begin
      otr:=False;
      for j:=1 to m do
       if mas[i,j]<0 then otr:=true;
      if otr then
      for k:=1 to m do Sum:=Sum+mas[i,k];
    end;   {for po strokam}
 Summa:=Sum;
 end;

procedure Sedlovie_tochki(a:matrix);
var i,j,k:integer;
    max,min:integer; {tekushie max i min}
    imax,jmin:integer;
 begin
 for j:=1 to m do
max:=a[1,j];imax:=1;
for i:=1 to n do
if a[i,j]>max then
   begin
    max:=a[i,j];
    imax:=i;
   end;
min:=a[imax,1];
jmin:=1;
for k:=1 to n do
if a[imax,j]<min then
    begin
      min:=a[imax,j];
      jmin:=j;
    end;
if min=max then
   begin
     writeln('#stroki=',imax);
     writeln('#stolbca=',jmin);
     readln;
     exit;
   end
else if (j=n)and(min<>max) then
writeln('Takogo stolbca net.');
end;


procedure vivod (mas:matrix);
var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     write(mas[i,j]:4);
    writeln;
   end;
 end;



begin
  vvod(myarray);
  vivod(myarray);
  S:=Summa(myarray);
  writeln('Summa:',S);
  Sedlovie_tochki(myarray);
  readln;


 end.

заранее спасибо ребят!
у меня программа обычно делала сама
а она больше 30 строк не выполняет..((

[Вадим Мошев]

Я это сделаю за 100 рублей на счёт мобильного телефона