Описать процедуру RemoveForInc(A,N,K),удаляющую из вещественного мас-сива A размера N элемент с номером К

@skrody · Регистрация: 17.09.2015

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

Описать процедуру RemoveForInc(A,N,K),удаляющую из вещественного мас-
сива A размера N элемент с номером К (уменьшая N). С помощью этой проце-
дуры удалить "лишние"элементы массива так, чтобы оставшиеся элементы
оказались упорядоченными по возрастанию: первый элемент не удаляется,
второй элемент удаляется, если он меньше первого, третий — если он меньше
предыдущего элемента, оставленного в массиве, и т. д. Например, массив 5.5,
2.5, 4.6, 7.2, 5.8, 9.4 должен быть преобразован к виду 5.5, 7.2, 9.4.

очень нужно завтра сдавать (((((((((((((((

@Puporev · 18.09.2015, 12:47

Pascal

const nmax=100;
type mas=array[1..nmax] of real;
procedure RemoveForInc(var a:mas;var n:integer; k:integer);
var i:integer;
begin
if k=n then n:=n-1
else
 begin
  for i:=k to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
 end;
end;
 
var a:mas;
    n,i:integer;
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1)
 end;
writeln;
i:=2;
while i<=n do
if a[i]<a[i-1] then RemoveForInc(a,n,i)
else inc(i);
writeln('Измененный массив');
for i:=1 to n do
write(a[i]:5:1);
end.

@skrody 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 2
		1
	Описать процедуру RemoveForInc(A,N,K),удаляющую из вещественного мас-сива A размера N элемент с номером К 17.09.2015, 22:00. Показов 2118. Ответов 1 Метки нет (Все метки) Описать процедуру RemoveForInc(A,N,K),удаляющую из вещественного мас- сива A размера N элемент с номером К (уменьшая N). С помощью этой проце- дуры удалить "лишние"элементы массива так, чтобы оставшиеся элементы оказались упорядоченными по возрастанию: первый элемент не удаляется, второй элемент удаляется, если он меньше первого, третий — если он меньше предыдущего элемента, оставленного в массиве, и т. д. Например, массив 5.5, 2.5, 4.6, 7.2, 5.8, 9.4 должен быть преобразован к виду 5.5, 7.2, 9.4. очень нужно завтра сдавать ((((((((((((((( 0

	18.09.2015, 12:47

Описать процедуру RemoveForInc(A,N,K),удаляющую из вещественного мас-сива A размера N элемент с номером К

Решение