Нахождение номеров элементов с заданным свойством

Задача. Найти и вывести на экран номера четных элементов.

Для решения задачи необходимо просмотреть весь массив, и если просматриваемый элемент является четным, то выводить его номер..

program PoiskChet;

const

n=20;

Type

Tarray=array[1..n] of integer;

var i: integer;

a: Tarray;

begin

writeln('нахождение номера четного элемента');

writeln('заполнение массива');

randomize;

for i: =1 to n do begin

a [i]: =random(100);

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

end;

writeln('номер четного элемента');

for i: =1 to n do

if a[i] mod 2 = 0 then

write(i: 5);

readln;

end.

Нахождение количества элементов с заданным свойством

Задача. Найти количество положительных и отрицательных элементов в данном массиве.

program kolichestvo;

const

n=20; {}

Type

Tarray=array[1..n] of integer;

var i, k1, k2, j: integer;

a: Tarray;

begin

writeln('подсчет положительных и отрицательных элементов в массиве ');

writeln('заполнение массива');

randomize;

for i: =1 to n do begin

a [i]: =random(10+20)-20;

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

end;

k1: =0;

k2: =0;

for i: =1 to n do

if a[i] > 0 then inc(k1)

else if a[i]< 0 then inc(k2);

writeln('количество положительных элементов');

writeln('k1=', k1);

writeln('количество отрицательных элементов');

writeln('k2=', k2);

readln;

end.

Удаление элементов из одномерного массива.

Задача. Удалить из массива максимальный элемент, если все элементы разные.

Для того, чтобы решить задачу нужно:

· найти номер максимального элемента k;

· сдвинуть все элементы, начиная с k-го, на один элемент влево;

· последнему элементу присвоить значение 0;

· уменьшить количество элементов массива на единицу.

Рассмотрим задачу на конкретном примере. Пусть дан одномерный массив из целых чисел, состоящий из 10 элементов:

6, 3, 4, 7, 11, 2, 13, 8, 1, 5.

Номер максимального элемента равен 7 (k=7), то есть, начиная с 7-го элемента, будем сдвигать элементы на один влево: 7-му присвоим значение 8-го, 8-му присвоим значение 9-го, 9-му присвоим значение 10-го, на этом сдвиг заканчивается. Таким образом, сдвиг начинается с k-го элемента и идет по (n-1)-й (где n - количество элементов в массиве). После этого последнему элементу присвоим значение, равное 0, и тогда массив будет следующим:

6, 3, 4, 7, 11, 2, 8, 1, 5.

Примечание. При удалении элемента размерность массива изменяется.

Составим программу, удаляющую максимальный элемент из одномерного массива. Чтобы последний элемент не выводился, модифицируйте соответствующую процедуру таким образом, чтобы ей передавать не только массив, но и количество элементов, которые надо вывести, начиная с первого.

program udalenie;

const

n=20;

Type

Tarray=array[1..n] of integer;

var i, max, maxi: integer;

a: Tarray;

begin

writeln('Удаление элемента');

writeln('заполнение массива');

randomize;

for i: =1 to n do begin

a [i]: =random(100);

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

end;

max: =-maxint;

for i: =1 to n do

if a[i]> max then

begin max: =a[i];

maxi: =i;

end;

for i: =maxi to n-1 do

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

a[n]: =0;

writeln('номер максимального элемента= ', maxi);

writeln('массив после удаления элемента' );

for i: =1 to n-1 do

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

readln;

end.

Вставка элементов в одномерный массив. Вставка одного элемента

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

Пусть k - это номер элемента, после которого необходимо вставить элемент х. Тогда вставка осуществляется следующим образом:

· первые k элементов массива остаются без изменения,

· все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,

· на место (k+1)-го элемента записываем значение х;

· увеличить количество элементов в массиве на единицу.

Задача. Вставить число после данного элемента массива.

Рассмотрим на конкретном примере. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.

Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем все N+1 элементы.

program vstavka;

const

n=20;

Type

Tarray=array[1..n+1] of integer;

var i, k, x: integer;

a: Tarray;

begin

writeln('вставка элемента в массив');

writeln('заполнение массива');

randomize;

for i: =1 to n do begin

a [i]: =random(100);

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

end;

writeln('введите номер элемента, после которого вставить новый элемент');

readln(k);

writeln('введите число, которое надо вставить');

readln(x);

for i: =n downto k+1 do

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

a[k+1]: =x;

writeln('новый массив');

for i: =1 to n+1 do

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

readln;

end.

Вставка нескольких элементов

Задача. Вставить число после всех элементов массива, кратных трем.

Первое, на что необходимо обратить внимание - это описание массива: на сколько элементов может увеличиться массив? Максимальное количество элементов, после которых будет вставлен новый элемент, совпадает с количеством элементов массива, так как может случиться, что все элементы массива отвечают заданному свойству. Поэтому массив может увеличиться в два раза.

Второе. Если просматривать массив с начала и вставлять новый после элемента с заданным свойством, то номер последнего элемента каждый раз может меняться, кроме того, будет просматриваться и новый (вставленный) элемент и его необходимо будет пропускать, поэтому решение будет не очень эффективным. Лучше всего просматривать массив, начиная с конца, тогда вставляемый элемент мешать не будет. Кроме того, номер последнего элемента можно будет знать (если знать, сколько элементов вставлено на данный момент), при этом просмотр будет последовательным от N-го до 1-го.

program perestanovka;

const

n=20;

Type

Tarray=array[1..2*n] of integer;

var i, k, x, j, mn: integer;

a, b: Tarray;

begin

writeln('вставка элементов');

writeln('заполнение массива');

randomize;

for i: =1 to n do begin

a [i]: =random(100);

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

end;

mn: =n;

writeln('введите число, которое надо вставить');

readln(x);

for i: =n downto 1 do

if a[i] mod 3 = 0 then

begin mn: =mn+1;

for j: =mn downto i+1 do

a[j+1]: =a[j];

a[i+1]: =x;

end;

writeln('новый массив');

for i: =1 to mn do

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

readln;

end.

Перестановка элементов массива.

Перестановка двух элементов

Задача. Поменять местами два элемента массива с номерами k1 и k2. Эту задачу можно решить следующим образом:

Var

m: MyArray;

n, k1, k2, x: integer;

Begin

x: =m[k1];

m[k1]: = m[k2];

m[k2]: = x;

End;

Перестановка части массива

Задача. Дан одномерный массив А, состоящий из 2n элементов. Поменять местами первую и вторую его половины

Заметим лишь, что необходимо поменять местами элементы с номерами 1 и n+1, 2 и n+2 и т.д., последняя пара - n и 2n, а значит, обмен происходит по правилу: элемент с номером i меняется местами с элементом с номером n+i.

Работа с несколькими массивами

В Turbo Pascal можно одним оператором присваивания передать все элементы какого-либо массива другому массиву того же типа, например:

Var

a, b: array [1.. 5] of integer;

Begin

...

a: =b;

...

End.

После такого присваивания все пять элементов массива a получат значения из массива b.

Рассмотрим одну из типичных задач.

Задача. Найти скалярное произведение двух массивов.

Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов. Это можно записать так:

a[1]*b[1] + a[2]*b[2] +... + a[n-1]*b[n-1] + a[n]*b[n],

где n - это количество элементов в массивах (размерность).

Тогда можно составить следующую программу:

Var

a, b: MyArray;

n, i: Integer;

s: LongInt;

Begin

s: = 0;

for i: = 1 to n do

s: = s+a[i]*b[i];

Sp: = s;

Двумерные массивы

Двумерный массив можно представить себе в виде таблицы, в которой все строки и столбцы пронумерованы.

Каждый элемент такого массива имеет два индекса:

Первый индекс – это номер строки;

Второй индекс – номер столбца.

A[1, 1]	A[1, 2]	A[1, 3]	A[1, 4]	A[1, 5]
A[2, 1]	A[2, 2]	A[2, 3]	A[2, 4]	A[2, 5]
A[3, 1]	A[3, 2]	A[3, 3]	A[3, 4]	A[3, 5]
A[4, 1]	A[4, 2]	A[4, 3]	A[4, 4]	A[4, 5]

Создание двумерного массива

Двумерные массивы создаются путем ввода данных с клавиатуры, с помощью случайных чисел и вычислений по формулам.

Для формирования массива используется два вложенных цикла. Первый цикл перебирает строки, а второй – столбцы.

Вариант 1 For i: =1 to n do for j: =1 to m do readln (a[i, j]);

Вариант 2 For i: =1 to n do for j: =1 to m do a[i, j]: =random(100);

Вариант 3 For i: =1 to n do for j: =1 to m do a[i, j]: =i*j;

⇐ Предыдущая 123 Следующая ⇒