Когда оля, вика и рита спросили, какие им поставили оценки за контрольную по , учительница ответила: «попробуйте догадаться сами, если я скажу, что в вашем классе «двоек» нет, а у вас троих оценки разные, причем:
у оли не «тройка».
у риты не «тройка» и не «пятерка».
какую оценку получила каждая ученица?

ответ:

у оли - 5, у вики - 3, а у риты - 4

объяснение:

ответ:

рита - 4, оля - 5, вика - 3.

объяснение:

у риты может быть только четверка, потому что по условию двоек нет, а "у риты не «тройка» и не «пятерка»."

у оли не может быть четверки, отому что четверка у риты. кроме этого, по условию "у оли не «тройка». остается только пятерка.

тогда на долю вики остается тройка.

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;

койка, стройка, трест, рой, репа, тройка, река, серп,строка.