На курсах лингвистики преподают иностранные языки: А(английский); К(китайский); Н(немецкий); Ф(французский) и Я(японский). Результаты проведённой контрольной работы по пятибальной системе были занесены в базу данных. Всего база содержит 3530 записей. Количество записей N, удовлетворяющих различным запросам, приведено в таблице:

раоалпаьемңгзкғщуущнхеушшехццешхухңхецшшхешхец

Type  arr = array[1..10] of integer; {создаем новый тип, являющийся массивом} var     i: integer;     s: real;   r,q,p: arr;                                       x: array[0..3] of integer; function sum(a: arr): integer;   {функция вычисления суммы элементов массива} var i: integer;   begin foreach i in a do                     {вычисляем сумму элементов по заданному правилу}   if (i> =2) and (i< =4)  then result : =result+i end;                                       {результатом функции будет сумма} begin randomize;           {заполняем массивы случайными числами} for i: =1 to 10 do   begin   r[i]: =random(10);   q[i]: =random(10);   p[i]: =random(10)   end; write('r: ');                   {распечатываем содержимое массивов на экране} for i: =1 to 10 do write(r[i],' '); writeln; write('q: '); for i: =1 to 10 do write(q[i],' '); writeln; write('p: '); for i: =1 to 10 do write(p[i],' '); writeln;             {а тут собственно само решение } x[1]: =sum(r); {передаем в ф-цию sum массив r, она считает сумму и записывает в х1} writeln('x[1]=',x[1]);   x[2]: =sum(q); {передаем в ф-цию sum массив q, она считает сумму и записывает в х2}  writeln('x[2]=',x[2]);   x[3]: =sum(p); {передаем в ф-цию sum массив p, она считает сумму и записывает в х3}  writeln('x[3]=',x[3]) end.