Значения двух массивов А[1..100] и B[1..100] задаются следующим фрагментом программы for i:=1 to 100 do a[i]:=i-10; for i:=1 to 100 do B[i]:=a[i]*i; Сколько элементов массива будут иметь отрицательные значения? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+1; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 9; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(n); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(a[n]); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+a[i]; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); Что будет напечатано? *

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.

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.