Таблицю успішності відсортували за стовпцем "Учень" за зростанням. Яким за рахунком буде учень Бондарчук? Відповідь введіть числом. Номер Учень Математика Біологія Фізика Інформатика Хімія
1 Глушенок 10 10 11 11 8
2 Вигівська 11 9 9 10 6
3 Бондарчук 7 8 8 9 7
4 Бірюкова 9 11 10 8 11
5 Голубенко 10 8 10 10 10
11 6 9 7 8

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

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

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

смотри блок-схему в приложенном файле

блок схема,в jpeg формате (картинка ) сделана в word 2007.у вас ошибка составление программы (var max,x,e: real; ) [хотя вы запрашиваете x,y]

картинка загружаться не хочет =),на сайт.

зеркало

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.