Question

Задана последовательность действительных чисел. Подсчитать количество чисел последовательности, расположенных на отрезке, концами которого являются два последних элемента массива.​

Answer 1

Ответ:

на паскале

program massive;

uses crt;

var a:array[1..20] of real; min,max,s:real;

i,k:Integer;

begin

clrscr;

randomize;

for i:=1 to 20 do begin

a[i]:=10*random; write(a[i]:2:2,' ; ') end;

writeln;writeln;

min:=a[i-1];max:=a[i];

if max<min then begin s:=max; max:=min; min:=s end;

writeln('Начало отрезка: ',min:2:2,'; конец отрезка: ',max:2:2);

writeln('Отрезку принадлежат следующие числа: ');

k:=0;

for i:=1 to 18 do

if (a[i]<max) and (a[i]>min) then begin k:=k+1; write(a[i]:2:2,' ; ') end;

writeln;

write('Итого на отрезке ',k,' чисел');

readln;

end.