Даны последовательность вещественных чисел a1,a2,…,a15

@Nekko93 · Регистрация: 29.03.2013

Даны последовательность вещественных чисел a1, a2,…,a15, упорядоченная по возрастанию, и число, не равное ни одному из чисел последовательности и такое, что а1< n < а15.
а) Вывести все числа последовательности, меньшие n.
б) Найти два элемента последовательности (их порядковые номера и значение), в интервале между которыми находится значение n.

@Puporev · 30.03.2013, 11:07

Pascal

uses crt;
const m=15;
var a:array[1..m] of real;
    n:real;
    i:integer;
begin
randomize;
a[1]:=random;
write(a[1]:5:1);
for i:=2 to m do
 begin
  a[i]:=a[i-1]+1+random;
  write(a[i]:5:1);
 end;
writeln;
repeat
write('a[1]<n<a[m] n=');
read(n);
until (n>a[1])and(n<a[m]);
writeln('Числа меньшие ',n:0:1);
i:=1;
while(i<=m)and(a[i]<n) do
 begin
  write(a[i]:5:1);
  i:=i+1;
 end;
writeln;
writeln('Число ',n:0:1,' находится между числами');
write('a[',i-1,']=',a[i-1]:0:1,'  a[',i,']=',a[i]:0:1)
end.

@Nekko93 1 / 1 / 0 Регистрация: 29.03.2013 Сообщений: 8
		1
	Даны последовательность вещественных чисел a1,a2,…,a15 30.03.2013, 01:40. Показов 7038. Ответов 1 Метки нет (Все метки) Даны последовательность вещественных чисел a1, a2,…,a15, упорядоченная по возрастанию, и число, не равное ни одному из чисел последовательности и такое, что а1< n < а15. а) Вывести все числа последовательности, меньшие n. б) Найти два элемента последовательности (их порядковые номера и значение), в интервале между которыми находится значение n. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Даны последовательность вещественных чисел a1,a2,…,a15

Решение