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>
Наверное контекстное меню!
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
С:/документы/по_работе/общее/Поздравление/расширение