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.
