Презентация, доклад на тему Вставка и удаление элементов массива

Аскольдовна

значение которого и позиция вводится с клавиатуры.

Алгоритм решения
Сформировать массив из 5 элементов
Ввести значение и позицию k вставляемого элемента
Предусмотреть сдвиг элементов массива с k-позиции до конца массива
Вставить новый элемент
Учесть, что в новом массиве будет на один элемент больше.

i, x, k: integer;
begin
randomize;
for i := 1 to n - 1 do begin
a [i]:=random(20)+1;
write(a[i]:5);
end;
writeln;
write(‘Введите новый элемент: ');
readln(x);
write('Позиция в массиве: ');
readln(k);
for i := n - 1 downto k do
a [i+1] := a [i];
a[k] := x;
writeln (' Новый массив: ');
for i := 1 to n do
write(a[i]:5);
end.

элемент: 7
Позиция в массиве: 2
Новый массив:
18 7 15 10 20 9

которого вводится с клавиатуры.

Алгоритм решения
Сформировать массив из 8 элементов
Ввести позицию k удаляемого элемента
Предусмотреть сдвиг элементов массива (влево)
Учесть, что в новом массиве будет на один элемент меньше.

i, k: integer;
begin
randomize;
for i := 1 to n do begin
a [i]:=random(20)+1;
write(a[i]:5);
end;
writeln;
write('Введите номер удаляемого элемента: ');
readln(k);
for i := k to n-1 do
a [i] := a [i+1] ;
writeln (' Новый массив: ');
for i := 1 to n-1 do
write(a[i]:5);
end.

9 10 5
Введите номер удаляемого элемента: 4
Новый массив:
7 12 4 16 9 10 5

перед максимальным элементом, значение которого вводится с клавиатуры.

Алгоритм решения
Сформировать массив из 10 элементов
Найти максимальный элемент и запомнить его номер в переменной k
Ввести значение вставляемого элемента
Предусмотреть сдвиг элементов массива (вправо) с k-позиции до конца массива
Вставить новый элемент
Учесть, что в новом массиве будет на один элемент больше.

новый элемент, равный 0 на шестую позицию

i, max, x, k: integer;
begin
randomize;
for i := 1 to n - 1 do begin
a [i]:=random(20)+1;
write(a[i]:5);
end;
writeln; max:=0;
for i := 1 to n - 1 do
if a [i]>max then
begin
max:=a[i]; k:=i;
end;
write(‘Введите новый элемент: ');
readln(x);
for i := n - 1 downto k do
a [i+1] := a [i];
a[k] := x;
writeln (' Новый массив: ');
for i := 1 to n do
write(a[i]:5);
end.

18 7 20 3 8
Введите новый элемент: 0
Новый массив:
8 9 15 10 16 18 7 0 20 3 8