Какой факультатив посещает наибольшее количество учеников?

БЫСТРЕЕ,

танці і матиматика

Объяснение:

Const a=10; type mas=array[1..a] of integer;         mas1=array[1..3] of byte; var r, q, p: mas;       x: mas1;       i: byte; procedure form(var r, q, p: mas); var sr, sq, sp: byte; begin sr: =0; sq: =0; sp: =0; for i: =1 to a do   begin   if (r[i]> =2) and (r[i]< =4) then sr: =sr+r[i];   if (q[i]> =2) and (r[i]< =4) then sq: =sq+r[i];   if (p[i]> =2) and (r[i]< =4) then sp: =sp+r[i];   end; x[1]: =sr; x[2]: =sq; x[3]: =sp; writeln('massiv x'); for i: =1 to 3 do write(x[i]: 3); end; begin randomize; for i: =1 to a do   begin   r[i]: =random(10);   q[i]: =random(10);   p[i]: =random(10);   end; writeln('massiv r'); for i: =1 to a do write(r[i]: 3); writeln; writeln('massiv q'); for i: =1 to a do write(q[i]: 3); writeln; writeln('massiv p'); for i: =1 to a do write(p[i]: 3); end.