Const n=20; var x:array[1..n] of integer; a,b,k,i:integer; begin Randomize; writeln('Массив:'); for i:=1 to n do begin x[i]:=random(51); write(x[i],' '); end; writeln; write('a, b (a<b): '); readln(a,b); k:=0; for i:=1 to n do if (x[i]>=a)and(x[i]<=b) then k:=k+1; writeln('k = ',k); end.
Пример: Массив: 27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2 a, b (a<b): 10 30 k = 8
Не пойму, где это может понадобиться, но 3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768
Var R1, R2, R3, S1, S2, S3: Integer; begin writeln('Введите размеры рации и чемодана'); readln(R1, R2, R3, S1, S2, S3); if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or ((R3 < S3) and (R2 < S1) and (R1 < S2)) or ((R1 < S1) and (R2 < S3) and (R3 < S3)) or ((R2 < S2) and (R1 < S3) and (R3 < S1)) or ((R2 < S1) and (R3 < S2) and (R1 < S3)) or ((R1 < S2) and (R3 < S1) and (R2 < S3)) then WriteLn('ПОМЕЩАЕТСЯ') else WriteLn('НЕ ПОМЕЩАЕТСЯ'); end.
var x:array[1..n] of integer;
a,b,k,i:integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do begin
x[i]:=random(51);
write(x[i],' ');
end;
writeln;
write('a, b (a<b): ');
readln(a,b);
k:=0;
for i:=1 to n do
if (x[i]>=a)and(x[i]<=b) then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив:
27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2
a, b (a<b): 10 30
k = 8