Удаление элементов массива. (№10)

Удалить элемент в статическом массиве - невозможно. Поэтому используют перемещение всех элементов, начиная с "удаляемого", записывая на их место следующие (i+1) элементы. Вводят так же переменную, которая обозначает индекс последнего элемента и при каждом шаге удаления элемента ее уменьшают на 1. Рассмотрим задачу на удаление всех отрицательных элементов массива.

№10. Program Udalenie;

Type

mass=array[1..20] of real;

Var

a: mass;

i, j, m : integer;

Begin

randomize;

writeln (‘ Массив A ‘);

for i:=1 to 20 do

Begin

a[ i ]:=(random(201)-80)/(random(100)+1);

write (a[ i ]:6:2);

end;

m:=20;

for i:=1 to 20 do

Begin

ifa[ i ]<0 then

Begin

for j:=i to 20 do a[ j ]=a[ j+1 ];

dec(m); { Процедура Dec уменьшает порядковую

переменную}

end;

if a[ i ]<0 then dec(i);

end;

writeln (‘Массив A без отрицательных элементов‘);

for i:=1 to m do

write (a[ i ]:6:2);

Readln;

End.

№ 11. Program Vkluchenie;

Type

mass=array[1..21] of real;

Var

a: mass;

i, j , i_max : integer;

t, max : real;

Begin

randomize;

writeln (‘ Массив A ‘);

for i:=1 to 20 do

Begin

a[ i ]:=(random(201)-80)/(random(100)+1);

write (a[ i ]:6:2);

end;

readln (t);

max:=a[1];

i_max:=1;

for i:=2 to 20 do

if a[ i ]>max then

Begin

max:=a[ i ];

i_max:=i

end;

for j:=21 downto i_max-1 do

a[ j ]=a[ j-1 ];

a[i_max]=T;

writeln (‘ Массив A c включенным элементом T ‘);

for i:=1 to 21 do

write (a[ i ]:6:2);

readln;

End.