Вмассиве записаны оценки по информатике 22 учеников класса. определить кол-во учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих этим ученика.

Program z; var i,sum: integer; sr: real; a: array[1..22] of integer; begin for i: =1 to 22 do begin a[i]: =random(9)+1; sr: =sr+a[i]; end; sr: =sr/22; for i: =1 to 22 do begin if (a[i]< sr) then sum: =sum+1; writeln(a[i]); end; writeln(sum); end.

Сопоставьте определения в гонке роботов с названием Самый интересный из роботов EV3 Роботы должны удалить соперника с ринга в течение определенного времени, если через определенное время оба робота приблизятся к середине ринга, победителем будет один гонок. Если внутри круга, Робо-сумо соответствует. Внешний диаметр круга отмечен точкой в середине внутреннего диаметра - тип поля, который составляет 100 мм, 1000 мм, красный Схватка между двумя роботами. состоит из нескольких раундов. Робо - C * Y * M * O 2

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 begin   var n: =readinteger('n=');   if n> 36 then begin       writeln('слишком много, максимум 72');       exit       end   else begin       var a: =new integer[n];       var k: =0;       for var i: =1 to 8 do           for var j: =i+1 to 9 do begin               a[i]: =10*i+j;               write(a[i],' ');               inc(k);               if k> n then exit               end       end end. тестовое решение: n= 36 12 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89