var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.
Я думаю, тут проще без подпрограмм будет.
const
n=5;
m=10;
var i,j,sn,sp:integer;
s:string;
a:array[1..n,1..m]of integer;
begin
s:='Нет таких';
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(-9,5);
write(a[i,j]:4);
if a[i,j]>0 then sp:=sp+1;
if a[i,j]<0 then sn:=sn+1;
end;
writeln;
if sp>sn then s:='Да, есть';
sp:=0;
sn:=0;
end;
writeln(s);
<span>end.</span>