Вставить действительное число в последовательность так же, чтобы она осталась неубывающей

@yea · Регистрация: 18.10.2015

Author24 — интернет-сервис помощи студентам

Добрый вечер, помогите, пожалуйста, составить программу:
Дана последовательность действительных чисел A1<=A2<=...<=An. Вставить действительное число B в нее так же,что бы последовательность осталась неубывающей.

@Puporev · 20.10.2015, 19:28

Pascal

uses crt;
var a:array[1..51] of real;
    n,i,j,k:integer;
    b:real;
begin
clrscr;
randomize;
repeat
write('Введите размер массива от 1 до 50 n=');
readln(n);
until n in [1..50];
a[1]:=3*random;
for i:=2 to n do
a[i]:=a[i-1]+3*random;
writeln('Исходный массив;');
for i:=1 to n do
write(a[i]:5:1);
writeln;
write('Введите число b=');
readln(b);
n:=n+1;
if b>=a[n-1] then a[n]:=b
else
 begin
  i:=1;
  k:=0;
  while(i<n)and(k=0) do
  if a[i]>=b then k:=i
  else inc(i);
  for j:=n downto k+1 do
  a[j]:=a[j-1];
  a[k]:=b;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i]:5:1);
readln
end.

@yea 0 / 0 / 0 Регистрация: 18.10.2015 Сообщений: 5
		1
	Вставить действительное число в последовательность так же, чтобы она осталась неубывающей 20.10.2015, 18:12. Показов 1685. Ответов 1 Метки нет (Все метки) Добрый вечер, помогите, пожалуйста, составить программу: Дана последовательность действительных чисел A1<=A2<=...<=An. Вставить действительное число B в нее так же,что бы последовательность осталась неубывающей. 0

	20.10.2015, 19:28

Опции темы

Вставить действительное число в последовательность так же, чтобы она осталась неубывающей

Решение