42. Дана последовательность действительных чисел а1,а2,…,аn. Указать те элементы, которые принадлежат отрезку [c,d].

Решение

program lab42;

var

a:array [1..100] of integer;

i,k,c,d,n:integer;

begin

randomize;

writeln('Vvedite c and d:');

readln(c,d);

writeln('Vvedite kolvo elementov posledovatelnosti');

readln(n);

writeln('Elementi posledovatelnosti:');

for i:=1 to n do

    begin

    a[i]:=random(40);

    write(a[i],' ');

    end;

writeln;

write('Elementi posledovatelnosti iz [',c,',',d,']: ');

k:=0;

for i:=1 to n do

    if (a[i]>=c) and (a[i]<=d) then

    begin

    write(a[i],' ');

    k:=k+1;

    end;

if k=0 then write('ne takih');

end.