ОЧЕНЬ СЕЙЧАС БУДУТ ПРОВЕРЯТЬ

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 задаем нужный размер исходного массива.

var

 a, b, g, s: integer;

begin

 readln(a, b);

 if a mod 2 = 0 then

 begin

   if (b - a) mod 2 = 0 then

   begin

     g := (b - a) div 2;

     s := a div 2 - g;

     write(s, ' ', g);

   end

   else

     write('-1 -1');

 end

 else

   write('-1 -1');

end.

Объяснение:

Обозначим количество страусов через s, количество жирафов через g.

Тогда 2s + 2g = a, 2s + 4g = b.

Вычитая из второго уравнения первое, получим 2g = b - a,

откуда g = (b - a) / 2, при этом (b - a) должно быть кратно 2.

Теперь найдем из первого уравнения s = a / 2 - g, при этом a должно быть кратным 2.