Основы программирования на языке Turbo Pascal. Беляева И.В. - 34 стр.

UptoLike

Составители:

Рубрика:

Например, так:

…

if n + m > maxN

then writeln('В массив А все элементы массива В ,

не поместятся')

else … {А вот здесь выполняем добавление элементов}

…

Задача 16: Сформировать массив В из отрицательных элементов

массива А. Массив А не изменять.

Фрагмент программы:

…

m := 0; {m – количество элементов в массиве В –

вначале массив B пустой}

{Проходим по всем элементам массива A}

for I := 1 to n do

if A[i] < 0 then {Если i-й элемент массива A

отрицательный}

begin

{То копируем его в массив B}

Inc(m); {В B добавляется еще один элемент –

увеличиваем m на 1}

B[m] := A[i]; {Копируем i-й элемент массива A

в m-й элемент массива B}

end;

…

Задача 17: Подсчитать, сколько элементов массива А совпадают с

элементами массива В.

Алгоритм программы:

1. Ввести массив А[n].

2. Ввести массив В[m].

3. Счетчик совпадений cnt обнулить.

4. Пройти по всем элементам массива A.