Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...
Вот и ответ к вопросу о <span>басне Крылова " Волк и ягненок"</span>
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;