Обработка массивов. Власенко О.Ф - 25 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

{3 - счетчик повторений обнуляем}
cnt:=0;
{4 - проходим по всем элементам массива A}
for i:=1 to n do
begin
{5 - сравниваем i-ый элемент массива А со всеми
элементами массива В}
k:=0; {k - количество совпадений i-го элемента массива A
с элементами массива В}
{считаем количество совпадений A[i] с элементами массива B}
for j=1 to m do
if A[i]=B[j] then Inc(k);
{6 - если А[i] совпадает хотя бы с одним элементом массива B,
счетчик повторений увеличить на 1}
if k>0 then Inc(cnt);
end;
{7 - выводим количество повторений}
writeln('Количество совпадений cnt=',cnt);
readln; {ждем нажатия клавиши Enter}
End.
Проверка соседних элементов массива
Задача 18: Подсчитать, сколько в массиве элементов, равных 0,
справа и слева от которых стоят отрицательные элементы.
Фрагмент программы:
…
k:=0; {количество таких элементов}
{проходим по всем элементам массива A}
{начинаем не с первого, а со второго, потому что у первого элемента
нет стоящего слева от него}
{заканчиваем на n-1 элементе, а не на n, потому что у последнего
n-го элемента нет элемента, стоящего от него справа}
for i:=2 to n-1 do
{если i-ый элемент равен 0
и
элемент слева от него
и
элемент справа от него отрицательные}
if (A[i]=0) and (A[i-1]<0) and (A[i+1]<0)
then Inc(k); {тогда увеличиваем счетчик}
…

Страницы