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

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

Описать процедуру 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. очень нужно завтра сдавать (((((((((((((((

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

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ