1.5 Тестирование

1:

udalenie elementov massiva

ishodnui massiv

24 56 32 47 32 54 2 7 32 89 43

vvedite nomer s kotorogo nachat udalenie: 4

vvedite nomer do kotorogo delat udalenie: 7

24 56 32 47 2 7 32 89 43

Задание 3:

8. Вставить элемент после первого отрицательного элемента.

1.1Работа программы

Вводятся исходные данные: элемент k с клавиатуры.

1.2Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 3.

Таблица 3 – Назначение переменных

Переменная	Тип	Назначение
n	real	Размер массива
i	real	Номер элемента
k	real	Отрицательный элемент
b	real	Элемент, который необходимо вставить
a	integer	Массив

1.3Блок – схема алгоритма программы

Рис. 3 Блок схема алгоритма программы

1.4 Текст программы

program vstavka;

const

n=15;

var i, k, b: integer;

a:array [1..n+1] of integer;

begin

randomize;

writeln ('vstavka elementa v massiv');

writeln ('zapolnenie massiva');

for i:=1 to n do

begin

a[i]:=random (25+25+1)-25;

write (a[i]:3,' ');

end;

for i:=n downto 1 do

begin

if (a[i]<0) then

k:=i;

end;

writeln;

writeln ('vvedite chislo, kotoroe nushno vstavit'); readln (b);

for i:=n+1 downto k+1 do

a[i]:=a[i-1];

a[k+1]:=b;

for i:=1 to n+1 do

write (a[i]:3,' ');

readln;

end.

1.5 Тестирование

Вводим число 7 , которое нужно вставить после отрицательного элемента, проверяя корректность работы программы. Программа ведёт себя корректно.

1:

vstavka elementa v massiv

zapolnenie massiva

13 -5 6 7 13 25 12 -8 -3 -8 9 14 23 -21 6

vvedite chislo, kotoroe nushno vstavit 7

13 -5 7 6 7 13 25 12 -8 -3 -8 9 14 23 -21 6

Задание 4:

8. Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:

а) А[i] < B[i]

б) A[i] = B[i];

в) A[i] > B[i]

1.1Работа программы

Вводятся исходные данные: два массива оператором random.

1.2Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 4.

Таблица 4 – Назначение переменных

Переменная	Тип	Назначение
n, m	integer	Десятичное число
a, b	integer	Массив
i	integer	Номер элемента массива
g	integer	Количество элементов А[i] < B[i]
e	integer	Количество элементов A[i] = B[i];
f	integer	Количество элементов A[i] > B[i]