На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Если хотя бы один из учеников правильно решил все задачи, выведите YES, иначе выведите NO. Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров.

1.
begin
write('  ');
var P:=ArrRandom(10,10,90).Println('     ');
var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray;
for var i:=0 to T.Length-1 do write(T[i]:7:2);
end.

Пример:
  50     37     37     15     40     86     64     41     53     46
  50.00  74.00  12.33  60.00   8.00 516.00   9.14 328.00   5.89 460.00

2.
begin
var k:=ReadInteger('k = ');
var a:=ArrRandom(10,-20,20).Println;
var m:=a.Where(x->x<0).Max;
writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k);
end.

Пример:
k =  5
15 10 -7 -13 -4 16 -12 -2 9 -12
Макс.отрицательное = -2, -2*5=-10

const

  n = 10; //количество элементов массива

var 

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

  i: integer;

 

begin

  for i:= 1 to n do 

  begin

    writeln('Введите ', i, ' элемент массива');

    readln(a[i]); //вводим очередной элемент массива

  end;

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

  for i:= 1 to n do 

    write(a[i], '  '); //Выводим исходный массив

  writeln; //Перевод на новую строку

  write('Полученный массив: ');

  for i:= 1 to n do

  begin 

    a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент

    write(a[i], '  '); //выводим полученный элемент массива

  end;

end.