В упорядоченный по неубыванию массив чисел вставить заданное число - Pascal ABC

Формулировка задачи:

В упорядоченный по неубыванию массив чисел вставить заданное число так, чтобы упорядоченность сохранилась, и удалить два первых элемента массива.

Код к задаче: «В упорядоченный по неубыванию массив чисел вставить заданное число - Pascal ABC»

textual
var a:array[1..51] of real;
    n,i,j,k:integer;
    b:real;
begin
randomize;
repeat
write('Введите размер массива от 2 до 50 n=');
readln(n);
until n in [2..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);
writeln;
writeln('Удаление двух первых элементов:');
n:=n-2;
for i:=1 to n do
 begin
  a[i]:=a[i+2];
  write(a[i]:5:1);
 end;
end.

14   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ