Program n1;
Uses Crt;
Var
c: array[1..10] of integer;
i, b, k:integer;Begin
for i:=1 to 10 do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
writeln();
writeln('Enter B = '); Readln(b);
k:=0;
for i:=1 to 10 do if (c[i]<b) then k:=k+1;
writeln('Kol-vo iskomih chisel: ', k);
<span>End.</span>
Исполнитель Чертежник и Исполнитель Робот
X = 336
y = 8
х = x div y = 336 div 8 = 42
y = x mod y = 42 mod 8 = 2