Як показати на діаграмах процес редагу-
вання графічної фігури з операціями: вида-
лити, копіювати, вирізати?

Uses crt;
Var
       mas:array[1..10, 1..10] of integer;
       i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
   for k:=1 to 10 do
 mas[i,k]:=random(10)+1;
     for i:=1 to 10 do begin if minln>0 then break; pr:=0;
   for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
                               if (pr = 10) then minln:=i;
                               end; end;
   Writeln('Минимальный номер строки с чётными числами - ',minln);
   Writeln('Вот она');
   for k:=1 to 10 do write (mas[minln,k],' ');

End.

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.