назад

                                

 program a42312;
uses crt;
type
mas=array[1..50] of byte;
var n,k,i:byte; x,y:mas;

procedure vvod(var x:mas; var nx:byte);
var i:byte;
begin
writeln('vvedite 4islo elementov - n');
readln(nx);
for i:=1 to nx do
begin
writeln('vvedite element');
readln(x[i]);
end;
end;

function mmm(var a,b:mas; var k,nx:byte):byte;
var max,i:byte;
begin max:=b[1];
for i:=2 to nx do
if max<b[i] then max:=b[i];
k:=0;
for i:=1 to nx do
if a[i]>max then k:=k+1;
end;

begin clrscr;
sound(4000);
vvod(x,n);
nosound;
vvod(y,n);

mmm(x,y,i,n);
writeln('4islo elementov udovletvoryaushego yslobiu');
write(i); readkey;
end.