Задана последовательность действительных чисел. Подсчитать количество чисел последовательности, расположенных на отрезке, концами которого являются два последних элемента массива.
ussrex:
Да что ж вы все не указываете, на каком языке программирования вам нужно решение?
Ответы
Ответ дал:
0
Ответ:
на паскале
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад