информати ка 8 класс!

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

21,24,27,30,33,36,39,42,45,48

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

пусть х лет мальчику, тогда

(х+2)/(х-2)=2

х+2=2(х-2)

х+2=2х-4

х=6лет мальчику

пусть у лет девочке, тогда

(у+3)/(у-3)=3

у+3=3(у-3)

у+3=3у-9

2у=12

у=6 лет девочке

ответ : мальчик и девочка одного возраста