Вотборочном забеге участвуют 5 спортсменок: петрова, белова, комарова, митина и громова. две лучшие спортсменки выходят в финал соревнований. до начала соревнований болельщиками были сделаны следующие прогнозы:

1) первое место завоюет белова, а петрова будет третьей.
2) белова займёт второе место, а комарова — последнее.
3) последней будет громова, а митина будет четвёртой.

после соревнований оказалось, что в каждом утверждении только одно высказывание верно. кто точно не прошёл в финал?

третий вариант.

потому что правильно так

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.