Как найти минимальный положительный элемент массива pascal - AvtoShod.ru

program z;
var i,min:integer; f:byte;
a:array [1..10] of integer;
begin
     f:=0;
     writeln('Ввод массива');
     for i:=1 to 10 do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод массива');
     for i:=1 to 10 do
         write(a[i],' ');
     writeln;
     for i:=1 to 10 do
         if a[i]>0
            then
                begin
                     min:=a[i];
                     f:=1;
                end;
     for i:=1 to 10 do
         if a[i]>0
            then
                begin
                     if a[i]<min
                        then
                            min:=a[i];
                end;
     if f=0
        then
            writeln('В массиве нет положительных элементов!')
     else
         writeln('Минимальный положительный элемент массива - ',min);
end.

Источник

Примеры задач на массивы

Рассмотрим задачи различных уровней сложности на одномерные массивы.

Элементы массива, которые больше предыдущего

Вывести элементы числового массива, которые больше, чем элементы, стоящие перед ними.

Например, дан массив [3, 9, 8, 4, 5, 1]. Следует вывести числа 9 и 5, так как перед ними стоят соответственно числа 3 и 4, которые меньше их.

Для решения задачи нужно каждый элемент сравнить с последующим или предыдущим. Если перебор идет с первого элемента, то должен продолжаться до предпоследнего. В таком случае выводятся элементы с индексом i+1 (что реализовано в коде ниже) в случае совпадения условия. Если перебор идет со второго элемента до последнего, то выводится элемент под индексом i.

const

N = 20;

var

a: array[1..N] of integer;

i: byte;

begin

randomize;

for i:=1 to N do begin

a[i] := random(100);

write(a[i]:4);

end;

writeln;

writeln(‘Элементы больше предыдущего: ‘);

for i:=1 to N—1 do

if a[i] < a[i+1] then

write(a[i+1]:4);

writeln;

end.

Разделить элементы массива на максимальный

Все элементы массива поделить на значение наибольшего элемента этого массива.

Поменять местами минимальный и максимальный элементы массива

Задача состоит из двух подзадач:

Поиск максимума.
Деление на него элементов массива.

const

M = 10;

var

C: array[1..M] of word;

maxC: word;

i: byte;

begin

randomize;

maxC := 0;

write(‘Исходный массив: ‘);

for i := 1 to M do begin

C[i] := random(1000);

write (C[i]:4);

if maxC < C[i] then

maxC := C[i];

end;

writeln;

writeln(‘Максимум: ‘, maxC);

write(‘Частные: ‘);

for i := 1 to M do begin

write (C[i]/maxC:6:2);

end;

writeln;

end.

Первый положительный элемент массива

Найти номер и значение первого положительного элемента массива.

Данная задача решается просто, если использовать оператор break. Массив перебирается в цикле. Каждый элемент проверяется на условие «больше нуля». Как только оно будет выполнено, элемент следует вывести на экран, а цикл прервать.

const N = 20;

var

arr: array[1..N] of integer;

i: byte;

begin

randomize;

for i:=1 to N do begin

arr[i] := random(100) — 75;

write(arr[i]:4);

end;

writeln;

for i:=1 to N do

if arr[i] > 0 then begin

writeln(i, ‘ ‘, arr[i]);

break;

end;

end.

Есть и другие задачи на массивы самых разнообразных уровней сложности.

Подробнее о них можно узнать в этом видеоролике.

Источник

Принцип поиска максимального или
минимального элемента массива заключается
в следующем: в дополнительную переменную
заносится значение первого элемента
массива, которое принимается за максимум
(минимум); затем организовывается перебор
оставшихся элементов массива, каждый
из которых сравнивается с максимумом
(минимумом); если текущий элемент массива
оказывается больше (меньше), чем принятый
за максимум (минимум), то этот элемент
становится максимальным (минимальным).
Таким образом, после завершения перебора
элементов массива в дополнительной
переменной окажется максимальное
(минимальное) значение среди элементов
массива. Фрагмент блок-схемы алгоритма,
реализующий описанный метод приведен
на рисунке 5.2.1.

В блоке 1 дополнительным переменным maxиmin, в которых
будут храниться максимальное и минимальное
значения соответственно, присваивается
значение 1-го элемента массива. Кроме
этого введены еще две переменныеimaxиimin, которые будут
использоваться для хранения номеров
максимального и минимального элементов
массива. С помощью блока модификации
(блок 2) организовывается цикл по перебору
элементов массива Х (перебор начинается
со 2-го элемента, так как 1-й элемент уже
обработан в блоке 1). Если текущий элемент
массиваX_iбольше значения, которое хранится в
переменнойmax(блок 3), то за максимум принимается
значение этого элемента:max=X_i,
и запоминается его номер:imax=i(блок 4). Если текущий элемент массива
не больше максимума, то проверяется, не
меньше ли он минимума (блок 5). В случае
если текущий элементX_iокажется меньше минимального значения,
которое хранится в переменнойmin,
то за минимум принимается значение
этого элемента:min=X_i,
и запоминается его номер:imin=i(блок 6). После выхода из цикла будут
выведены значения максимального и
минимального элементов, а также их
номера в массиве (блок 7).

Приведенный
выше алгоритм имеет один недостаток –
в нем используется две лишние переменныеmaxиmin.
Зная индекс элемента массива всегда
можно получить его значение, поэтому
нет необходимости хранить максимальное
и минимальное значения в отдельных
переменных. Оптимальный алгоритм
приведен на рис. 5.2.2.

В блоке 1 дополнительным переменным
imaxиimin,
используемых для хранения номеров
максимального и минимального элемента,
присваивается значение 1. Таким образом,
за максимум и минимум принимается 1-й
элемент массива, само же значение этого
элемента нигде дополнительно не
сохраняется. Оставшиеся элементы массива
также перебираются, начиная со второго
(блок 2). При этом каждый элемент массиваX_iсравнивается с
элементами, имеющими номер равныйimax(блок 3) иimin(блок
6), т.е. с элементами принятыми за максимум
(минимум). Если результат проверки
условий является истиной, то в переменныхimaxиiminсохраняются индексы новых максимального
(блок 4) и минимального (блок 6) элементов.
После выхода из цикла будут выведены
значения максимального и минимального
элементов, а также их номера в массиве
(блок 7).

Если в массиве имеется несколько
элементов равных по значению максимальному
(минимальному) элементу, то алгоритмы,
приведенные на рис 5.2.1 и 5.2.2, определят
позицию только первого такого элемента.
Например, чтобы найти количество
элементов массива равных максимальному
и позицию последнего такого элемента,
можно воспользоваться алгоритмом,
приведенным на рис. 5.2.3.

В начале алгоритма за максимум принимается
1-й элемент массива и вводится переменная
kдля подсчета
количества элементов равных максимальному
(блок 1). Затем организовывается цикл по
перебору оставшихся элементов массива
(блок 2). На каждом шаге цикла выполняется
следующая последовательность действий.

Вначале текущий элемент массива X_iсравнивается с максимальным (блок 3).
Если он оказывается больше элемента,
принятого за максимальный, то запоминается
номер этого элемента и переменнойkприсваивается 1 (блок 4). Это означает,
что встретился первый «новый» максимальный
элемент.

Если текущий элемент не больше максимума,
значит, он может быть равным или меньше
максимального элемента. Поэтому в блоке
5 текущий элемент массива X_iпроверяется на равенство
максимальному. Если он оказывается
равным максимуму, то опять запоминается
номер текущего элемента и значение
переменнойkувеличивается на 1 (блок 6). Это означает,
что встретился следующий элемент равный
максимальному элементу. В итоге после
выхода из цикла в переменнойimaxбудет храниться индекс последнего по
счету элемента равного максимальному,
а в переменнойkколичество элементов, равных максимуму.
Если же из блока 6 убрать операциюimax=i,
то в переменнойimax,
как и в предыдущих примерах будет
сохранен номер первого по счету элемента
равного максимальному.

В некоторых задачах невозможно вначале
принять за максимум (минимум) первый
элемент массива. Например, если элементы
массива ещё не определены (не введены
или не вычислены), или если необходимо
найти максимум (минимум) только среди
положительных, четных по значению и
т.д. элементов. Во втором случае неизвестно
когда в массиве встретится первый такой
элемент. В таких ситуациях можно
использовать способ, реализованный в
алгоритме из примера 5.2.

Пример 5.2.В массиве Х [N]
найти минимальный положительный элемент.

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

В нашем примере нумерация элементов
массива начинается с единицы, поэтому
в качестве начального значения для
переменной iminпринимается 0 (блок 1), т.е. значение
которое не могут принимать индексы
элементов массива Х. Таким образом
показывается, что при обработке массива
еще не встречался положительный элемент,
который можно принять за начальное
значение для минимума. Затем организовывается
цикл по перебору всех элементов массива
(блок 2). На каждом шаге цикла выполняется
следующая последовательность действий.

В блоке 3 проверяется, не является ли
текущий элемент массива X_iположительным. Если он отрицательный
или равен нулю, то такой элемент
пропускается и над ним не выполняется
никаких действий. ЕслиX_i> 0, то в блоке 4 проверяется, не является
ли этот элемент первым встретившимся
положительным элементом массива
(признаком чего служит значениеiminравное 0). В этом случае в блоке 5 переменнойiminбудет присвоено
текущее значениеi.
Таким образом, за начальное значение
для минимума будет принято значение
первого по счету положительного элемента
массива Х. Эта ситуация может возникнуть
только один раз, и при дальнейшей работе
цикла блок 5 больше выполняться не будет.
Остальные положительные элементы
массива в блоке 6 будут сравниваться с
элементом массива, принятым в текущий
момент за минимум. Если такой элемент
окажется меньше минимального, то в блоке
7 в переменнойiminбудет сохранен его номерi.

После выхода из цикла проверяется, не
равно ли значение iminнулю (блок 8), так как сразу же выводить
значение минимального элемента массиваX_iminи его номерimin(блок 9) нельзя. Это объясняется тем что,
если в массиве Х не будет положительных
элементов, то значение переменнойiminостанется равным нулю, а обращение к
несуществующему элементу массиваХ₀не допустимо.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

Источник

На занятии объясняется, как работать с одномерными массивами в Паскале, как использовать генератор случайных чисел — функцию random в Паскале. Рассматривается пример того, как вывести числа Фибоначчи

Материалы сайта labs-org.ru направлены на практическое освоение языка программирования Pascal. Краткие теоретические сведения не претендуют на полное освещение материала по теме; необходимую информацию можно найти в сети Интернет в большом количестве. В наши же задачи входит предоставление возможности получения практических навыков программирования на Паскале. Решенные наглядные примеры и задания изложены по мере увеличения их сложности, что позволит с легкостью изучить материал с нуля.

Содержание:

Одномерные массивы в Паскале
- Объявление массива
- Инициализация массива
- Вывод элементов массива
- Динамические массивы (pascalAbc.Net)
- Функция Random в Pascal
- Числа Фибоначчи в Паскале
- Максимальный (минимальный) элемент массива
- Поиск в массиве
- Циклический сдвиг
- Перестановка элементов в массиве
- Выбор элементов и сохранение в другой массив
- Сортировка элементов массива

Одномерные массивы в Паскале

Объявление массива

Массивы в Паскале используются двух типов: одномерные и двумерные.
Определение одномерного массива в Паскале звучит так: одномерный массив — это определенное количество элементов, относящихся к одному и тому же типу данных, которые имеют одно имя, и каждый элемент имеет свой индекс — порядковый номер.
Описание массива в Паскале (объявление) и обращение к его элементам происходит следующим образом:

Объявление массива

var dlina: array [1..3] of integer;
begin
dlina[1]:=500; 
dlina[2]:=400; 
dlina[3]:=150;
...

dlina — идентификатор (имя) массива;

для объявления используется служебное слово Array (в переводе с англ. «массив» или «набор»);

[1..3] — в квадратных скобках ставится номер (индекс) первого элемента, затем две точки и индекс последнего элемента массива, т.е. по сути, указывается количество элементов; количество элементов массива называется размерностью массива

of integer (с англ. «из целых чисел») — указывает, к какому типу относится массив, of здесь — служебное слово.

Объявить размер можно через константу:

Инициализация массива

Кроме того, массив может быть сам константным, т.е. все его элементы в программе заранее определены. Описание такого массива выглядит следующим образом:

const a:array[1..4] of integer = (1, 3, 2, 5);

Заполнение последовательными числами:

Результат:
A[1] = 8, A[2] = 9, A[3] = 10, ..., A[N] = A[N-1] + 1

Ввод с клавиатуры:

Пример: Рассмотрим, как происходит ввод массива в Паскале:

writeln ('введите кол-во элементов: ');
readln(n); {если кол-во заранее не известно, - запрашиваем его}
for i := 1 to n do begin
   write('a[', i, ']=');
   read(a[i]);
   ...
end;
...

✍ Пример результата:

введите кол-во элементов: 
3
a[1]=5
a[2]=7
a[3]=4

Вывод элементов массива

Пример: Рассмотрим, как вывести массив в Паскале:

var
  a: array[1..5] of integer; {массив из пяти элементов}
  i: integer;
begin
a[1]:=2;
a[2]:=4;
a[3]:=8;
a[4]:=6;
a[5]:=3;
writeln('Массив A:');
for i := 1 to 5 do
    write(a[i]:2); {вывод элементов массива}
end.

✍ Пример результата:

Для работы с массивами чаще всего используется в Паскале цикл for с параметром, так как обычно известно, сколько элементов в массиве, и можно использовать счетчик цикла в качестве индексов элементов.

Задача Array 0. Необходимо задать вещественный массив размерностью 6 (т.е. из шести элементов); заполнить массив вводимыми значениями и вывести элементы на экран. Использовать два цикла: первый — для ввода элементов, второй — для вывода.

Пример результата:

введите элемент массива: 3.0
введите элемент массива: 0.8
введите элемент массива: 0.56
введите элемент массива: 4.3
введите элемент массива: 23.8
введите элемент массива: 0.7
Массив =  3, 0.8, 0.56, 4.3, 23.8, 0.7

[Название файла: taskArray0.pas]

В данном примере работы с одномерным массивом есть явное неудобство: присваивание значений элементам.

Обработка массивов в Паскале, так же как и заполнение массива, происходит обычно с использованием цикла for.

Динамические массивы (pascalAbc.Net)

Основным недостатком статических массивов является то, что их размер нельзя задать с учетом текущих обрабатываемых данных. Приходится описывать массивы с максимально возможным значением количества элементов, выделяя для них столько памяти, сколько может потребоваться для хранения самой большого из возможных наборов исходных данных.

Основной особенностью динамических массивов является возможность выделения для них памяти на любом этапе выполнения программы.

Имеется возможность корректировки размера динамического массива как в сторону его уменьшения, так и в сторону увеличения.

Объявление:

var a: array of integer;
var n:=readInteger;
a:=new integer[n]; // инициализация, выделение памяти для элементов массива

или:

var a: array of integer;
var n:=readInteger;
SetLength(a,n); // устанавливаем размер

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

procedure p(a: array of integer);

Созданные элементы сразу получают начальное значение, равное нулевому значению соответствующего типа: для чисел это целый или вещественный нуль, для символов — символ с кодом 0, для строк и других ссылочных типов данных — нулевая ссылка nil

Объявление и инициализация массива:

Пример:

begin
  var a: array of integer;
  a := new integer[3];
  a[0] := 5;
  a[1] := 2;
  a[2] := 3;
end.

или в одну строку:

begin
  var a: array of integer;
  a := new integer[3](5,2,3);
  print(a)
end.

или короткая запись:

var a:=Arr(1,2,3);// по правой части - integer

Элементы динамического массива всегда индексируются от 0.

Ввод элементов:

Пример:

var a:=ReadArrInteger(5); // ввод пяти целых
var a:=ReadArrReal(5); // ввод пяти вещественных

Функции генерации массивов:

1. ArrFill :

var a := ArrFill(10, 1); // массив из 10 целых чисел, равных 1

2. ArrGen :

var a := ArrGen(ReadInteger, 1, e -> e + 2); // массив, состоящий из n первых положительных нечетных чисел
a.Print;

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

Пример:

for var i:=0 to a.Length-1 do
  a[i] += 1;

или:

for var i := 0 to a.High do
  a[i] += 1;

Проход по элементам (только для чтения):
Пример:

foreach var x in a do
  Print(x)

Размер динамического массива (т. е. количество его элементов) можно определить с помощью его свойства Length

Для динамического массива определены еще два свойства: Low и High, определяющие соответственно нижнюю и верхнюю границу диапазона изменения индекса. Свойство a.Low всегда возвращает 0, а свойство a.High определяется как a.High = a.Length – 1

Простой вывод элементов:

Writeln(a); // пример вывода: [1,5,3,13,20]

или метод массива Print:

a.Print; // пример вывода: 1 5 3 13 20
a.PrintLines; // каждый элемент с новой строки

Функция Random в Pascal

Для того чтобы постоянно не запрашивать значения элементов массива используется генератор случайных чисел в Паскаль, который реализуется функцией Random. На самом деле генерируются псевдослучайные числа, но суть не в этом.

Для генерации чисел от 0 до n (не включая само значение n, целые числа в интервале [0,N)) используется запись random (n).
Перед использованием функции необходимо инициализировать датчик случайных чисел с помощью процедуры randomize.

Диапазон в Паскале тех самых случайных чисел от a до b задается формулой:

Пример: Заполнение массива случайными числами в Pascal:

var f: array[1..10] of integer;
    i:integer;
begin
randomize;
for i:=1 to 10 do
  begin
   f[i]:=random(10); { интервал [0,9] }   
   write(f[i],' ');
  end;
end.

✍ Пример результата:

Для вещественных чисел в интервале [0,1):

var x: real;
...
x := random(0.0,1.0);;         { интервал [0,1), т.е. единица не включена }

PascalABC.NET:

Сгенерированный случайным образом кортеж из двух (Random2), либо из трех (Random3) элементов:

var (a, b, c) := Random3(10.0, 20.0); // диапазон [10, 20)
write(a:0:2,' ',b:0:2,' ', c:0:2) // 14.73 18.63 19.72

Массив из 10 сгенерированных случайным образом целых чисел в диапазоне [0;99]:

Пример:

var a:=arrRandomInteger(10);

или с дополнительными параметрами (диапазон [5;15]):

var a:=arrRandomInteger(10,5,15);

Задача Array 1. Необходимо задать массив размерностью 5, заполнить массив случайными числами в интервале [-1,1] и вывести элементы на экран: определить три позиции для вывода каждого элемента, с двумя знаками после запятой.

Пример результата:

Массив =  0.22 0.00 -0.69 -0.35 -0.11

[Название файла: taskArray1.pas]

Числа Фибоначчи в Паскале

Наиболее распространенным примером работы с массивом является вывод ряда чисел Фибоначчи в Паскаль. Рассмотрим его.

Пример: Ряд чисел Фибоначчи: 1 1 2 3 5 8 13…

f[0]:=1;   
f[1]:=1; 
f[2]:=2;  
…
или
f[2]:=f[0]+f[1];
f[3]:=f[1]+f[2];
или

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

Пример: Вычислить и распечатать первые 20 чисел Фибоначчи.

var i:integer;
f:array[0..19]of integer;
begin
f[0]:=1;
f[1]:=1;
for i:=2 to 19 do
begin
  f[i]:=f[i-1]+f[i-2];
  writeln(f[i])
end;
end.

На данном примере, становится понятен принцип работы с числовыми рядами. Обычно, для вывода числового ряда находится формула определения каждого элемента данного ряда. Так, в случае с числами Фибоначчи, эта формула-правило выглядит как f[i]:=f[i-1]+f[i-2]. Поэтому ее необходимо использовать в цикле for при формировании элементов массива.

Задача Array 2. Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]

Пример результата:

Массив =  2 0 4 29 3 11 26 11 9 4 
mas[1] + mas[2] + mas[3] = 6
mas[2] + mas[3] + mas[4] = 33
mas[3] + mas[4] + mas[5] = 36
mas[4] + mas[5] + mas[6] = 43
mas[5] + mas[6] + mas[7] = 40
mas[6] + mas[7] + mas[8] = 48
mas[7] + mas[8] + mas[9] = 46
mas[8] + mas[9] + mas[10] = 24

[Название файла: taskArray2.pas]

Задача Array 3. Написать программу решения задачи о печати ряда чисел 2 4 8 16 32 ... 512; для заполнения массива использовать цикл Repeat
[Название файла: taskArray3.pas]

Максимальный (минимальный) элемент массива

Псевдокод:

Поиск максимального элемента по его индексу:

PascalABC.NET:

Минимальный элемент и его индекс:

Решение 1:

  // …
  var (min, minind) := (a[0], 0);  
  for var i:=1 to a.Length-1 do
    if a[i]<min then
      (min, minind) := (a[i], i);  Result := (min, minind);

Решение 2:

  // …
  var (min, minind) := (real.MaxValue, 0);  
  for var i:=0 to a.Length-1 do
    if a[i]<min then
      (min, minind) := (a[i], i);  Result := (min, minind);

Решение 3:

begin
  var a := new integer[5];
  a := arrRandomInteger(5); // [86,37,41,45,76] 
  print(a.Min,a.IndexMin); // 37  1
end.

Задача Array_min: Найдите минимальный элемент массива. Выведите элемент и его индекс.

Пример результата:

9 5 4 22 23 7 3 16 16 8 
Минимальный элемент массива A[7]=3

[Название файла: taskArray_min.pas]

Задача Array 4. Дан массив из 10 целочисленных элементов. Найти количество отрицательных и вывести количество на экран.

Пример результата:

3 4 6 -1 6 -2 1 5 0 1 
Количество отрицательных элементов: 2

[Название файла: taskArray4.pas]

Задача Array 5. Найти минимальное и максимальное из n введенных чисел (массива). Определить расстояние между этими элементами.

3  2  6  1  3  4  7  2  >>>  min=1, max=7, distance=3

[Название файла: taskArray5.pas]

Задача Array 6. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.

N=4
mas: 8 9 2 5
>>> 2 8 количество= 2

[Название файла: taskArray6.pas]

Задача Array 7. Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера.

Пример:

Исходный массив:
4   -5   10  -10  5
максимальные A[3]=10, A[5]=5

[Название файла: taskArray7.pas]

Поиск в массиве

Рассмотрим сложный пример работы с одномерными массивами:

Пример: Дан массив из 10 чисел. Определить, есть ли в массиве число, введенное пользователем. Если есть – выводить «найдено», если нет – «не найдено».
Сложность задания заключается в том, что выводить слова «найдено» или «не найдено» необходимо один раз.

Для решения поставленной задачи понадобится оператор break — выход из цикла.
Решение Вариант 1. Цикл for:

PascalABC.NET:

Cтандартные методы a.IndexOf(x) и a.LastIndexOf(x):

begin
  var a := new integer[10];
  a := arrRandomInteger(5,0,5); //[1,3,5,4,5] 
  print(a.IndexOf(3)) // 1
end.

или метод a.Contains(x) наравне с x in a:

begin
  var a := new integer[10];
  a := arrRandomInteger(5,0,5); //[1,3,5,4,5] 
  print(a.Contains(3)); // True
  print(3 in a)// True
end.

Рассмотрим эффективное решение:

Задача: найти в массиве элемент, равный X, или установить, что его нет.

Алгоритм:

начать с 1-го элемента (i:=1);
если очередной элемент (A[i]) равен X, то закончить поиск иначе перейти к следующему элементу.

решение на Паскале Вариант 2. Цикл While:

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

Предлагаем посмотреть подробный видео разбор поиска элемента в массиве (эффективный алгоритм):

Задача Array 8. Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X.

Пример:

	 Исходный массив:
	 4  0  1  2  0  1  3  4  1  0
	 Что ищем? 0
	 A[2], A[5], A[10]

[Название файла: taskArray8.pas]

Циклический сдвиг

Пример: сдвинуть элементы массива влево на 1 позицию, первый элемент становится на место последнего.

Решение:

Алгоритм:
A[1]:=A[2]; A[2]:=A[3];… A[N-1]:=A[N];

Программа:

PascalABC.NET:

Циклический сдвиг влево:

  // …
  var v := a[0];
  for var i:=0 to a.Length-2 do
    a[i] := a[i+1];
  a[a.Length-1] := v;

Циклический сдвиг вправо:

  // …
  var v := a[a.Length-1];
  for var i:=a.Length-1 downto 1 do
    a[i] := a[i-1];
  a[0] := v;

Задача Array 9. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента.
Пример:

Исходный массив:
  4  -5   3  10  -4  -6   8 -10  1  0
Результат:
  4   3  10  -4  -6   8 -10   1  0 -5

[Название файла: taskArray9.pas]

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

Рассмотрим, как происходит перестановка или реверс массива.

Пример: переставить элементы массива в обратном порядке

Решение:

Алгоритм:

Псевдокод:

Программа:

PascalABC.NET:

Перестановка (ревёрс):

Решение 1:

begin
var a: array of integer := (1,3,5,7); 
var n := a.Length;
for var i:=0 to n div 2 - 1 do
    Swap(a[i],a[n-i-1]);
End.

Решение 2 (стандартная процедура Reverse()):

begin
var a:=new integer[10];
a:=arrRandomInteger(10);
print(a);// [41,81,84,63,12,26,88,25,36,72] 
Reverse(a);
print(a) //[72,36,25,88,26,12,63,84,81,41] 
end.

Задача Array 10. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и сделать реверс всех элементов, кроме последнего.
Пример:

 Исходный массив:
-5  3   10  -4  -6   8 -10  1   0  4
 Результат:
0  1  -10   8  -6  -4  10  3  -5  4

[Название файла: taskArray10.pas]

Выбор элементов и сохранение в другой массив

Пример: найти в массиве элементы, удовлетворяющие некоторому условию (например, отрицательные), и скопировать их в другой массив

Решение:

Решение: подсчитывать количество найденных элементов с помощью счетчика count, очередной элемент устанавливать на место B[count]. Переменой count необходимо присвоить 1.

Вывод массива B:

writeln('Выбранные элементы');
for i:=1 to count-1 do
   write(B[i], ' ')

PascalABC.NET:

Процедура SetLength():

// ...
for var i := 0 to a.length - 1 do 
    if a[i] < 0 then
    begin
      b[j] := a[i];
      j += 1;
    end;
  SetLength(b, j);

Задача Array 11. Заполнить массив случайными числами в интервале [20,100] и записать в другой массив все числа, которые оканчиваются на 0.
Пример:

	 Исходный массив:
	 40   57   30  71  84
	 Заканчиваются на 0:
	 40 30

[Название файла: taskArray11.pas]

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

Сортировка методом «Пузырька»

В таком типе сортировок массив представляется в виде воды, маленькие элементы — пузырьки в воде, которые всплывают наверх (самые легкие).
При первой итерации цикла элементы массива попарно сравниваются между собой:предпоследний с последним, пред предпоследний с предпоследним и т.д. Если предшествующий элемент оказывается больше последующего, то производится их обмен.
При второй итерации цикла нет надобности сравнивать последний элемент с предпоследним. Последний элемент уже стоит на своем месте, он самый большой. Значит, число сравнений будет на одно меньше. То же самое касается каждой последующей итерации.

Pascal

PascalABC.NET

for i:=1 to N-1 do begin
   for j:=N-1 downto i do
     if A[j] > A[j+1] then begin
       с := A[j];
       A[j] := A[j+1];
       A[j+1] := с;
     end;
 end;

for var i := 0 to arr.High - 1 do
    for var j := arr.High - 1 downto i do
      if arr[j] > arr[j + 1] then 
        Swap(arr[j], arr[j + 1]);

Задача Array 12. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину массива по возрастанию, а вторую – по убыванию (методом ‘Пузырька’).

Пример:
Исходный массив:
14  25  13  30  76  58  32  11  41  97
Результат:
13  14  25  30  76  97  58  41  32  11

[Название файла: taskArray12.pas]

Сортировка методом выбора

в массиве ищется минимальный элемент и ставится на первое место (меняется местами с A[1]);
среди оставшихся элементов также производится поиск минимального, который ставится на второе место (меняется местами с A[2]) и т.д.

Pascal

PascalABC.NET

for i := 1 to N-1 do begin
  min:= i ;
  for j:= i+1 to N do
    if A[j] < A[min] then min:=j; 
  if min <> i then begin
    c:=A[i]; 
    A[i]:=A[min]; 
    A[min]:=c;
  end;
end;

for var i := 0 to a.High-1 do
  begin
    var (min,imin) := (a[i],i);
    for var j := i + 1 to a.High do
      if a[j] < min then
        (min,imin) := (a[j],j);
    Swap(a[imin],a[i]);
  end;

Задача Array 13: Заполнить массив из 10 элементов случайными числами в интервале [0..50] и отсортировать его по возрастанию суммы цифр

Пример:
Исходный массив:
14  25  13  12  76  58  21  87  10  98
Результат:
10  21  12  13  14  25  76  58  87  98

[Название файла: taskArray13.pas]

PascalABC.NET:

Стандартная процедура sort():

Sort(a);
SortByDescending(a);

Быстрая сортировка или quick sort

Алгоритм:

Выбирается и запоминается средний элемент массива (присвоим X):

Инициализируем две переменные (будущие индексы массива): L:=1, R:=N (N — количество элементов).
Увеличиваем L и ищем первый элемент A[L], который больше либо равен X (в итоге он должен находиться справа).
Уменьшаем R и ищем элемент A[R], который меньше либо равен X (в итоге он должен находиться слева).
Смотрим, если L<=R, то меняем местами A[L] и A[R], возвращаемся к пункту 3.

Выполнение на Паскале:

procedure QSort ( first, last: integer);
var L, R, c, X: integer;
begin
  if first < last then begin
    X:= A[(first + last) div 2];
    L:= first; R:= last;
 while L <= R do begin
   while A[L] < X do L:= L + 1;
   while A[R] > X do R:= R - 1;
   if L <= R then begin
     c:= A[L]; A[L]:= A[R]; A[R]:= c;
     L:= L + 1; R:= R - 1;
   end;
 end;
  QSort(first, R);   QSort(L, last);
  end;
end.

Задача Array 14:
Заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его с помощью алгоритма быстрой сортировки.

[Название файла: taskArray14.pas]

Источник

Тип урока: комбинированный

Цели урока:

Образовательные:
- овладение умениями и навыками осуществлять
  ввод и вывод значений элементов одномерного
  массива;
- овладение умениями и навыками решения задач
  на нахождение максимального и минимального
  элементов массива;
- подготовка к ЕГЭ (программирование);
Развивающие:
- развитие структурного мышления учащихся;
- развитие познавательного интереса.
Воспитательные:
- формирование умения применять на практике
  полученные знания;
- воспитание чувства ответственности за
  результаты своего труда.

Мотивация учащихся: опора
на ранее изученный материал; практическая и
самостоятельная деятельность учащихся.

Основные методы обучения: исследовательский
и практический.

Формы организации учебной деятельности:
индивидуальная, коллективная.

Формы работы: фронтальная,
индивидуальная, самостоятельная работа Оборудование:
компьютер, мультимедийный проектор,
слайдопроектор, экран, презентация.

Раздаточный материал: тексты
заданий для самостоятельной работы.

Программное обеспечение: система
программирования TP7

Требования к знаниям и умениям:

Учащиеся должны знать:
- понятие массива, методы его обработки.
Учащиеся должны уметь:
- задавать массив с клавиатуры и функцией
  случайных чисел;
- использовать правила обработки массива;
- выдавать массив разными способами.

Структура урока

№ этапа	Название этапа	Содержание работы	Продолжительность этапа
I	Организационный этап	Приветствие, готовность учащихся к уроку	1 мин.
II	Сообщение цели и темы урока	«Нахождение min и max элементов массива»	1 мин.
III	Актуализация опорных знаний	Устный опрос (презентация)	3 мин.
IV	Объяснение нового материала	Беседа с учащимися	14 мин.
V	Физкультминутка		2 мин.
VI	Самостоятельное выполнение заданий на компьютере	Учитель консультирует учащихся	15 мин.
VII	Домашнее задание	Комментарии к домашнему заданию	1 мин.
VIII	Подведение итогов урока.Выставление отметок за работу	Учащиеся вместе с учителем делают выводы о методах решения задач	3 мин.
			Всего 40 минут

Домашнее задание к данному уроку:

Повторить методы обработки массивов.
Решить задачи (индивидуальные карточки). (Приложение
1)

КОНСПЕКТ УРОКА

I. Организационный этап (1 мин.)

– приветствие;
– готовность учащихся к уроку;
– состояние рабочего места учащихся: наличие
тетрадей, дневников;
– отсутствующие на уроке (сообщают дежурные)

II. Сообщение цели и темы урока (1 мин.)

При обработке массивов часто приходится
использовать максимальный или минимальный
элемент. Например, находить максимальный доход
или наименьшее расстояние. Сегодня на уроке мы
рассмотрим методы поиска максимального и
минимального элементов массива. Запишем тему
урока: «Нахождение максимального и
минимального элементов массива».

(слайд 1).
(слайд 2)

III. Актуализация знаний (3 мин.)

(слайд 3)

Для того чтобы правильно писать программы, мы
должны владеть основными навыками и теорией
написания программ на языке программирования
Pascal. Вспомним некоторые конструкции языка
Паскаль. Обратить внимание учащихся на то, что
подобные задания встречаются в тестах ЕГЭ.

Устный опрос (слайд 4-9).

IV. Объяснение нового материала (14 мин.)

Вспомним, что такое массив, и как он описывается
и обрабатывается средствами языка Паскаль
На доске ученики записывают: строку описания
массива
строку ввода
строку вывода
Рассмотрим одномерный массив: (слайд 10)

– 9 5 – 18 59 79
95 74 – 52 17 19

– Какой здесь минимальный элемент? (ответ: –
52)
– Какой максимальный элемент? (ответ: 95)
– Подумаем, какие операции нужно выполнить,
если требуется найти минимальный элемент?
Естественно, операцию сравнения. Мы не
задумываемся над тем, что сравниваем всегда пару,
«пробегая» глазами все элементы массива.
Алгоритм поиска минимального и максимального
элемента мы построим таким образом, чтобы
сравнивать пару чисел, повторяя действие
сравнения нужное количество раз.
Запишем алгоритм нахождения минимума и
максимума (слайд 11)
1. Пусть первый элемент массива –минимальный
(максимальный).
2. Пока не конец массива:
Сравниваем каждый элемент массива с выбранным
минимальным (максимальным):
Если текущий элемент массива меньше
минимального (больше максимального), то
присваиваем минимальному (максимальном) числу –
значение текущего элемента массива.
Рассмотрим схему работы алгоритма при
нахождении минимального элемента массива. (слайд
12)
– А теперь запишем программу на языке Pascal. (Ученики
записывают программу самостоятельно, учитель
помогает вопросами)

(слайд 13).

program prim1;
var    a :array [1..10] of integer;
        i, max : integer;
begin
randomize;
    for i:=1 to 10 do begin
a[i]:=random(30);
writeln (‘znas4enie’,i, ‘elementa massiva=’, a[i]);
end;
   max:= a[1];
   for i:=1 to 10 do
if a[i] > max then max:= a[i];

         writeln (‘max=’, max);
end.

V. Физкультминутка (2 мин.)

VI. Самостоятельное выполнение заданий на
компьютере (15 мин.) (слайд 14)

Текст задач

Дан массив а(10), заполненный датчиком случайных
чисел. Найти сумму минимального и максимального
элементов массива.
Дан целочисленный массив а(10), заполненный
датчиком случайных чисел. Найти максимальный
элемент массива среди четных элементов.
Дан массив а(10), заполненный датчиком случайных
чисел. Найти минимальный элемент массива,
принадлежащий интервалу (c,d).

VII. Домашнее задание. (слайд 15) (1 мин.)

Запишите домашнее задание на следующий урок:
Дан массив а(10), заполненный датчиком случайных
чисел. Найти наибольший положительный элемент
массива и увеличить его в 3 раза.

VIII. Подведение итогов урока.Выставление
отметок за работу (3 мин)

В ходе урока мы рассмотрели нахождение
максимального и минимального элемента массива.
Чему вы научились сегодня на уроке? Отвечая на
вопрос, ученики должны отметить особенность
задания начального значения минимальному или
максимальному элементу, если этот элемент
отвечает каким-либо дополнительным условиям.
Отметка «5» за урок выставляется тем учащимся,
кто справился с тремя заданием, «4» –
выполнил 2 задания, «3» – выполнил 1
задание.

Литература:

В.И.Пугач, Т.В.Добудько, «TURBO-PASCAL. ЗАДАЧИ
ШКОЛЬНОЙ ИНФОРМАТИКИ», МО России, Самарский
государственный университет, Самара, 1994 г.
А.А.Чернов, А.Ф.Чернов, «Информатика», 9-11
классы, «Контрольные и самостоятельные работы по
программированию», изд.Учитель, Волгоград, 2006
г.
Д.М.Ушаков, Т.А.Юркова, «Паскаль для
школьников», Питер, 2008 г.

Приложение 1

Тема: «Нахождение минимального и
максимального элементов массива»

Дан массив а(10), заполненный датчиком случайных
чисел. Найти сумму минимального и
максимального элементов массива.
Дан целочисленный массив а(10), заполненный
датчиком случайных чисел. Найти максимальный
элемент массива среди четных элементов.
Дан массив а(10), заполненный датчиком случайных
чисел. Найти минимальный элемент массива,
принадлежащий интервалу (c,d).

Источник

Примеры задач на массивы

Рассмотрим задачи различных уровней сложности на одномерные массивы.

Элементы массива, которые больше предыдущего

Разделить элементы массива на максимальный

Первый положительный элемент массива

Есть и другие задачи на массивы самых разнообразных уровней сложности.

Подробнее о них можно узнать в этом видеоролике.

Одномерные массивы в Паскале

Объявление массива

Инициализация массива

Вывод элементов массива

Динамические массивы (pascalAbc.Net)

Функция Random в Pascal

Числа Фибоначчи в Паскале

Максимальный (минимальный) элемент массива

Поиск в массиве

Циклический сдвиг

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

Выбор элементов и сохранение в другой массив

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

Не пропустите также: