Число элементов массива X(n), которые больше максимального элемента в массиве Y(n).

[Владимир112]

Число элементов массива X(n), которые больше максимального элемента в массиве Y(n). Использовать подпрограмму процедуры.

[Вадим Мошев]

Начинайте делать работу. будут вопросы - обращайтесь.

[Mad_Cat]

max:=1;
c:=0;
for i:=1 to n do 
if y[i]>y[max] then max:=i;
for i:=1 to n do
if x[i]>y[max] then inc(c);
writeln(c);

в процедурку сами превращайте ну и ввод-вывод массивов прикрутите