Презентация "Одномерные и двумерные массивы. В помощь сдающему ЕГЭ" 11 класс

Одномерные и двумерные массивы. В помощь сдающему ЕГЭ

• Лицей-интернат естественных наук, г.Саратов.
• Над презентацией к уроку работали:
• Нестеренко В.В., учитель высшей категории,
• Хазова Н.Б., учитель информатики ЛИЕН

78	6	82	67	55	44	34

1	4	7	3	6
2	-5	0	15	10
8	9	11	12	20

• Массивы

• 1 2 3 4 5 6 7

• X[1]=78, X[2]=6, X[3]=82, X[4]=67, X[5]=55, X[6]=44, X[7]=34

78	6	82	67	55	44	34

• Описание массива определяет имя, размер массива и тип элементов.
• Var X:array[1..7] of integer; Y:array [1..10] of real;

• Одномерный массив объединяет под одним именем фиксированное
• количество элементов одного типа данных.
• Каждый элемент массива имеет собственный номер.

• Задание с клавиатуры

• For i:=1 to 10 do
• Begin
• Write ('A[',i,']='); Readln(A[i]);
• End;

• Способы задания (формирования) одномерных массивов

• Задание типизированной константой

• Const A: array [1..5] of integer = (5,6,2,0,-4);

• С помощью генератора случайных чисел

• For i:=1 to 20 do A[i]:= random(50);

• Задание с помощью формулы

• For i:=1 to 20 do A[i]:= i;

• Чтение данных из файла

• assign(input,'input.txt');
• assign(output,'output.txt');
• reset(input);
• rewrite(output);
• … … … … … … … …
• close(input);
• close(output);

• Массивы

• Описание массива определяет имя, размер массива и тип элементов.
• Var A: array [1..5,1..5] of integer; B: array [1..10,1..10] of real;

• Двумерный массив (матрица, таблица) объединяет под одним
• именем фиксированное количество элементов одного типа данных.
• Каждый элемент в двумерном массиве определяется номером
• строки и номером столбца, на пересечении которых он находится.

1	4	7	3	6
2	-5	0	15	10
8	9	11	12	20

a11	a12	a13	a14	a15
a21	a22	a23	a24	a25
a31	a32	a33	a34	a35

• A[1,1]=1, A[1,2]=4,… A[2,2]=-5,… A[3,2]=9,… A[3,5]=20

• Задание массива с клавиатуры

• For i:=1 to n do
• For j:=1 to m do
• Begin
• Write (‘A[‘,i,’,’,j,’]=‘); Readln (A[i,j]);
• End;

• Формирование и вывод двумерных массивов

• Задание типизированной константой

• Const A:array[1..2,1..2] of integer=((5,6),(2,0));

• Задание с помощью генератора случ-х чисел

• For i:=1 to n do
• For j:=1 to m do A[i,j]:= random(50);

• Формирование массива с помощью формулы

• For i:=1 to n do
• For j:=1 to m do A[i]:= i;

• assign (input,'input.txt');
• assign (output,'output.txt');
• reset (input);
• rewrite (output);
• … … … … … … … …
• close (input);
• close (output);

• Вывод двумерного массива

• For i:=1 to n do
• begin
• Writeln;
• For j:=1 to m do
• Write (A[i,j]:2,' ');
• end;

• Чтение данных из файла input.txt и запись в файл output.txt

• Найти сумму и произведение элементов массива, состоящего из 10 элементов

• 1 0 -1 0 6 2 0 4 8 -7

• Сумма элементов = 13
• Произведение элементов =2688

• Исходный массив

• Результат

• n=10

• Размерность массива

• Program massiv;
• Const A: array [1..10] of integer = (1, 0, -1, 0, 6, 2, 0, 4, 8, -7);
• Var i, s: integer; p: longint;
• BEGIN
• s:=0;
• p:=1;
• For i:=1 to 10 do
• begin
• s:=s + A[i];
• p:=p*A[i];
• end;
• Writeln (‘Сумма элементов =‘, s);
• Writeln (‘Произведение элементов =‘, p);
• END.

• Найти сумму всех отрицательных элементов массива, состоящего из 10 элементов

• 1 0 -1 0 6 2 0 9 8 -7

• Сумма отр-х элементов = -8

• Исходный массив

• Результат

• n=10

• Размерность массива

• Program massiv;
• Const A: array [1..10] of integer = (1, 0, -1, 0, 6, 2, 0, 9, 8, -7);
• Var i, s: integer;
• BEGIN
• s:=0;
• For i:=1 to 10 do if A[i]<0 then s:=s + A[i];
• If s=0 then Writeln (‘отрицательных элементов нет‘)
• else Writeln (‘Сумма отр-х элементов =‘, s);
• END.

• Пусть n=4, m=4

• В двумерном массиве, элементами которого являются целые числа, подсчитать сумму элементов с k1 строки по k2.

• S=32

• Исходный массив

• 5
• 4
• 3
• 1

• 1
• 1
• 3
• 4

• 0
• 3
• 3
• 8

• 8
• 7
• 8
• 9

• Результат

• Program d2;
• Var A: array[1..10,1..10] of integer;
• i, j, k1, k2, s, m, n : integer;
• Begin
• Writeln (‘Введите размерность массива');
• Readln (n, m);
• {Ввод массива}
• S:=0;
• Writeln (k1,k2); ReadLn (k1,k2);
• If (k1>k2) or (k2>n) then Writeln ('ошибка') else
• Begin
• For i:=k1 to k2 do
• For j:=1 to m do S:=S+A[i,j];
• Write ('S=', S);
• End;
• End.

• k1=2, k2=3

• 4 x 4

• В матрице A размерностью 4*4 найти сумму ее положительных элементов, произведение элементов, значения которых попадают в интервал [2, 5], а также отношение этих двух величин.

• Сумма=20
• Произведение=360
• Отношение=0.055

• Исходный массив

• 5
• 4
• 0
• 1

• 1
• 1
• 0
• 0

• 0
• 3
• 3
• 2

• -8
• -7
• -8
• -9

• Результат

• Program massiv;
• Var A: array [1..4,1..4] of integer; i, j, s: integer;
• BEGIN
• {Ввод массива}
• s:=0; p:=1;
• For i:=1 to 4 do
• For j:=1 to 4 do
• begin
• If A[i,j]>0 then s:=s+A[i,j];
• If (A[i,j]>=2) and (A[i,j]<=5) then p:=p*A[i,j];
• end;
• Writeln ('Сумма=',s:6:2);
• Writeln ('Произведение=',p:6:2);
• If p=0 then Writeln ('Отношение вычислить нельзя')
• else Writeln ('Отношение=',s/p:6:3)
• END.

• Задача. Найти скалярное произведение двух массивов. Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов (a[1]*b[1] +a[2]*b[2]+...+ a[n]*b[n]).

• Program mm;
• Var A, B: array[1..5] of integer;
• n, I, s: integer;
• BEGIN
• S:=0;
• For i:=1 to n do
• Begin
• Write ('A[',i,']='); Readln (A[i]);
• End;
• For i:=1 to n do
• Begin
• Write (‘B[',i,']='); Readln(B[i]);
• End;
• For i:=1 to n do S:= S+A[i]*B[i];
• Writeln(‘вывод результата');
• WriteLn (S);
• END.

• Исходный массив

• A : 5 2 3 5 4
• B: 1 5 5 4 0

• Результат:

• 50

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

• Исходный массив

• 0 9 18 7 -6 5 -4 9

• Результат

• s=36

• Program mass2;
• Var A:array[1..100] of integer;
• n, i, S: integer;
• Begin
• s:=0;
• Write ('число элементов массива =');
• Readln (n);
• Randomize;
• For i:=1 to 20 do
• begin
• A[i]:= random(50);
• Write (A[i]:4);
• end;
• For i:=1 to n do
• If A[i] mod 9=0 then s:=s+A[i];
• Writeln; Writeln ('s=',s);
• End.

• Размерность массива

• n=8

• Конец

• s

• да

• A[i] mod 9=0

• s:=0

• Начало

• ввод n, А[1..n]

• i:=1, n

• s:=s+A[i]

• нет

• Дан целочисленный массив из 18 элементов. Элементы могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Составьте программу, которая подсчитывает и выводит средний балл учащихся, сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.

• Program Srball;
• Const N = 20;
• Var A: array[1..N] of integer;
• i, x, y: integer; S: real;
• Begin
• {Ввод массива}
• x:=0; y:=0;
• For i:= 1 to N do
• If A[i]>20 then
• begin
• x:= x+1; y:= y+A[i];
• end;
• S:= y/x;
• Writeln('Sredniy ball=',S:4:1);
• End.

• N=18

• Sredniy ball=50.0

• Результат

• Размерность массива

• Исходный массив

• 10 50 50 68 74 26 32 2 5 50 100 12 13 20 21 29 45 55

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

• Program mass2;
• Var A: array [1..10 , 1..10] of integer;
• i, j, s, n, m, k: integer; sr: real;
• BEGIN
• S:=0; k:=0;
• Writeln (‘введите размерность массива');
• Readln (n,m);
• {Ввод массива}
• For i:=1 to n do
• For j:=1 to m do
• If A[i,j] mod 2=0 then
• Begin
• S:=S+A[i,j];
• k:=k+1;
• End;
• Sr:=s/k;
• Writeln(‘Сред. ариф. чёт. эл. =', sr:4:1);
• END.

• Исходный массив

• 51 22 34 58 91
• 13 6 19 34 26
• 20 15 25 33 85
• 56 3 44 35 16
• 65 27 85 15 34

• Результат

• Сред. ариф. чёт. эл.=31.8

• Пусть размерность массива

• 5 x 5

• В данном одномерном массиве, элементами которого являются целые числа, подсчитать среднее арифметическое отрицательных элементов.

• Результат

• -20.0

• Пусть размерность
• массива

• N=20

• Исходный массив

• -10 57 51 68 74 -27 31 2 5 50 100 12 13 -23 21 29 45 55 10 10

• Program A1;
• Var A:array[1..100] of integer; k, n, i: integer; s: real;
• Begin
• Write ('число элементов массива ='); Readln (n);
• k:=0; s:=0;
• For i:=1 to n do
• Begin
• Write ('A[',i,']='); Readln (A[i]);
• If A[i]<0 then
• Begin
• k:=k+1; s:=s+A[i];
• End;
• End;
• If k=0 then writeln ('отрицательных элементов нет') else
• Begin
• s:=s/k; Writeln ('s=',s:8:1);
• End;
• End.

• В данном одномерном массиве, элементами которого являются целые числа, подсчитать среднее арифметическое элементов, попадающих в интервал [1, 25]. Количество элементов массива ввести с клавиатуры.

• Результат

• 10.0

• Пусть размерность
• массива

• N=20

• Исходный массив

• 10 57 51 68 74 27 31 5 5 50 100 12 13 23 22 9 45 55 10 10

• Program A2;
• Var A:array[1..100] of integer; k, n, i: integer; s: real;
• Begin
• Write ('число элементов массива ='); Readln (n);
• k:=0; s:=0;
• For i:=1 to n do
• Begin
• Write ('A[',i,']='); Readln(a[i]);
• If (A[i]>=1) and (A[i]<=25) then
• Begin
• k:=k+1; s:=s+A[i];
• End;
• End;
• If k=0 then Writeln ('элементов нет') else
• Begin
• s:=s/k; Writeln ('s=', s:6:1);
• End;
• End.

a11
	a22
		a33
			a44
				ann

• У квадратной матрицы есть замечательные свойства:
• Индексы элементов, лежащих на главной диагонали равны, т.е. i = j.
• 2. Первый индекс всех элементов выше главной диагонали меньше второго,
• т.е. i < j.
• 3. Первый индекс всех элементов ниже главной диагонали больше второго,
• т.е. i > j.

• i < j

• i > j

• i = j

• Пусть размерность массива

• n=4

• Дана квадратная матрица, элементами которой являются вещественные числа. Подсчитать сумму элементов главной диагонали.

• S=16.9

• Исходный массив

• 0.5
• -5.4
• -9.3
• 7.1

• 9.1
• -2.1
• -8.3
• 6.4

• 0
• -3
• 3
• 8

• 8
• 7
• 8
• 9

• Результат

• Program diag1;
• Var A:array [1..10,1..10] of real;
• i, j, n: integer; s: real;
• BEGIN
• S:=0;
• Writeln (‘введите размерность массива');
• Readln (n);
• {Ввод массива}
• For i:=1 to n do
• For j:=1 to n do
• If i=j then S:=S+A[i,j];
• Writeln('S=',S:4:1);
• END.

				a1n
			a24
		a33
	a42
an1

• i+j<n+1

• i+j>n+1

• i + j = n+1

• 3. Для элементов, находящихся под побочной диагональю: i+j>n+1

• Для элементов побочной диагонали сумма первого и второго индексов равна «нарощенному» на единицу порядку матрицы, т.е. i + j = n+1.
• 2. Для элементов, находящихся над побочной диагональю: i+j<n+1

• Пусть размерность массива

• n=4

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

• S=0.6

• Исходный массив

• Результат

• Program diag2;
• Var A:array [1..10,1..10] of real;
• i, j, n: integer; s: real;
• BEGIN
• S:=0;
• Writeln (‘введите размерность массива');
• Readln (n);
• {Ввод массива}
• For i:=1 to n do
• For j:=1 to n do
• If i+j<n+1 then S:=S+A[i,j];
• Writeln ('S=',S:4:1);
• END.

• 0.5
• -5.4
• -9.5
• 7.1

• 9.1
• -2.1
• -8.3
• 6.4

• 0
• -3
• 3
• 8

• 8
• 7
• 8
• 9

				a1n
			a24
		a33
	a42
an1

• i+j<n+1 и i<j

• i+j>n+1 и i>j

• Для элементов над пересечением диагоналей должны одновременно выполняться два неравенства: i+j<n+1 и i<j;
• 2. Для элементов под пересечением диагоналей должны одновременно выполняться два неравенства: i+j>n+1 и i>j;

• i+j>n+1 и i<j

• i+j<n+1 и i>j

• Пусть размерность массива

• n=5

• Дана квадратная матрица, элементами которой являются целые числа. Подсчитать сумму элементов, находящихся над и под пересечением диагоналей .

• S=36

• Исходный массив

• Результат

• 6
• 4
• 1
• 5
• 8

• 5
• 2
• 8
• 6
• 5

• 0
• 3
• 3
• 8
• 0

• 8
• 7
• 8
• 9
• 7

• 5
• 0
• 8
• 6
• 4

• i+j<n+1 и i<j

• i+j>n+1 и i>j

• Program diag3;
• Var A:array [1..10,1..10] of integer; i, j, n, s: integer;
• BEGIN
• S:=0;
• Writeln (‘введите размерность массива');
• Readln (n);
• Randomize;
• For i:=1 to n do
• begin
• Writeln;
• For j:=1 to n do
• begin
• A[i,j]:=random(10); Write (A[i,j]:2,' ');
• end;
• end;
• For i:=1 to n do
• For j:=1 to n do
• If (i+j<n+1) and (i<j) then
• If (i+j>n+1) and (i>j) then S:=S+A[i,j];
• Writeln('S=',S:4);
• END.

• Задача.
• Найти в массиве максимальный элемент.

• m a x

• 10 1 2 6 99

• Пусть размерность массива

• n=5

• max = 99

• Исходный массив

• Результат

• Найти наибольший элемент одномерного массива

• Program mass2;
• Var A: array [1..100] of integer;
• i, max, n: integer;
• Begin
• Writeln (’введите число элементов массива ’);
• Readln (n);
• For i:=1 to n do
• begin
• Write (’A[’, i , ’]=’);
• Readln (A[i]);
• end;
• max:=A[1];
• For i:=2 to n do if A[i]>max then max:=A[i];
• Writeln (’ max =’, max);
• End.

• Дан двумерный массив, элементами которого являются целые числа. Найти значение максимального элемента массива.

• Исходный массив

• 51 22 34 58 91
• 13 90 19 34 24
• 14 15 25 34 85
• 56 3 45 35 16
• 64 27 85 18 34

• Результат

• max=91

• Пусть размерность массива

• 5 x 5

• Program massiv;
• Var A:array [1..10,1..10] of integer;
• i, j, max, n, m: integer;
• BEGIN
• Writeln (‘введите размерность массива');
• Readln (n,m);
• {Ввод массива}
• max:=A[1,1];
• For i:=1 to 5 do
• For j:=1 to 5 do
• If A[i,j]>max then max:=A[i,j];
• Writeln('max=', max);
• END.

• 10 1 2 6 99

• Пусть размерность массива

• n=5

• min = 1

• Исходный массив

• Результат

• Program mass2;
• Var A: array [1..100] of integer;
• i, min, n: integer;
• Begin
• Writeln (’введите число элементов массива ’);
• Readln (n);
• For i:=1 to n do
• begin
• Write (’A[’, i , ’]=’);
• Readln (A[i]);
• end;
• min:=A[1];
• For i:=2 to n do if A[i]<min then min:=A[i];
• Writeln (’ min =’, min);
• Readln;
• End.

• Найти наименьший элемент одномерного массива

• Пусть размерность массива

• n=4, m=4

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

• S=28

• Исходный массив

• 0
• -5
• -9
• 7

• 9
• -2
• -8
• 6

• 0
• -3
• 3
• 8

• 8
• 7
• -8
• 9

• Результат

• Program MAX1;
• Var A:array [1..10,1..10] of integer;
• S, i, j, max, n, m: integer;
• BEGIN
• Writeln (‘введите размерность массива');
• Readln (n,m);
• {Ввод массива}
• S:=0;
• For i:=1 to n do
• begin
• max:=A[i,1];
• For j:=1 to m do
• If A[i,j]>max then max:=A[i,j];
• S:=S+max;
• end;
• Writeln('S=',S);
• END.

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

• Исходный массив

• 51 22 34 58 0
• 13 0 19 34 26
• 20 15 25 33 85
• 56 3 0 0 0
• 65 27 85 15 34

• Число эл-в
• равных мин.=5

• Результат

• Пусть размерность массива

• 5 x 5

• Program d5;
• Var A:array [1..10,1..10] of integer;
• n, m, i, j, k, min: integer;
• BEGIN
• Writeln ('Введите размерность массива');
• Readln (n,m);
• {Ввод массива}
• k:=0;
• min:=A[1,1];
• For i:=1 to n do
• For j:=1 to m do
• If A[i,j]<min then min:=A[i,j];
• For i:=1 to n do
• For j:=1 to m do
• If min=A[i,j] then k:=k+1;
• Write (‘Число эл-в равных мин.=', k);
• END.

• Опишите алгоритм подсчета числа элементов, равных максимальному,
• в числовом массиве из 20 элементов.

• Результат

• 3

• Размерность
• массива

• N=20

• Program maksi2;
• Var A:array[1..20] of integer;
• k, i, max: integer;
• BEGIN
• {Ввод массива}
• k:=1; max:=A[1];
• For i:=2 to 20 do
• Begin
• If A[i]=max then k:=k+1;
• If A[i]>max then
• begin
• max:=A[i]; k:=1;
• end;
• End;
• Writeln (k);
• END.

• Исходный массив

• 10 50 50 68 74 26 32 2 5 50 100 12 13 20 21 29 45 55 100 100

• 5 х 5

• Дан двумерный массив целых положительных чисел размером 5 на 5. Найти сумму элементов строки, в которой расположен элемент с максимальным значением. Вывести значение суммы на печать, если предполагается, что такой элемент единственный.

• S=30

• Исходный массив

• Результат

• Program mas32;
• Const n:=5;
• Var A:array[1..n,1..n] of integer;
• max, s, imax, i, j: integer;
• BEGIN
• {Ввод массива}
• max:=A[1,1]; S:=0; imax:=1;
• For i:=1 to n do
• For j:=1 to n do
• If A[i,j]>max then
• begin
• max:=A[i,j]; imax:=i;
• end;
• For j:=1 to n do S:=S+A[imax,j];
• Writeln ('S=',S);
• End.

• Размерность массива

• 5
• 4
• 3
• 1
• 6

• 1
• 1
• 3
• 4
• 5

• 0
• 3
• 3
• 8
• 1

• 8
• 7
• 8
• 9
• 4

• 0
• 3
• 3
• 8
• 0

• Опишите алгоритм подсчета максимального количества подряд идущих совпадающих элементов в целочисленном массиве длины 25.

• Результат

• max кол-во совп. элем. =6

• Размерность
• массива

• N=25

• Program sovpad;
• Var A: array[1..25] of integer;
• k, k1, i: integer;
• BEGIN
• k1:=1; k:=1;
• For i:=1 to 25 do
• begin
• Write ('A[',i,']=');
• Readln (A[i]);
• end;
• For i:=2 to 25 do
• begin
• If a[i] = a[i-1] then k:=k+1 else k:=1;
• If k > k1 then k1:=k;
• end;
• Writeln (‘max кол-во совп. элем. =',k1);
• END.

• Исходный массив

• 10 50 8 8 50 6 41 40 2 50 7 5 5 5 5 5 5 29 45 55 3 2 2 2 3

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

• Результат

• 19

• Размерность
• массива

• N=25

• Program mas;
• Сonst n=25;
• Var A:array[1..n] of integer;
• i, i1, s: integer;
• BEGIN
• For i:=1 to n do Readln (A[i]);
• i1:=1;
• S:=A[1]+A[2];
• For i:=2 to n-1 do
• If A[i]+A[i+1]> S then
• begin
• i1:=i;
• s:=A[i]+A[i+1];
• end;
• Writeln(i1);
• End.

• Исходный массив

• 10 50 8 8 50 6 41 40 2 50 7 5 5 5 5 5 5 29 45 55 3 2 2 2 3

• Дан прямоугольный массив целых полож-х чисел 4х5. Опишите алгоритм поиска строки с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.

• Program minsum;
• Const n=4 ; m=5;
• Var A:array [1..n,1..m] of integer;
• min, sum, imin, i, j: integer;
• BEGIN
• {Ввод массива}
• Sum:=0;
• For j:=1 to m do sum:=sum+A[1,j];
• Min:=sum; imin:=1;
• For i:=2 to n do
• Begin
• Sum:=0;
• For j:=1 to m do sum:=sum+A[i,j];
• If sum<min then
• Begin
• min:=sum; imin:=i;
• End;
• End;
• Writeln (‘№ строки=', imin, ‘, sum=', min);
• END.

• 4 х 5

• № строки=2, sum=10

• Исходный массив

• Результат

• Размерность массива

• 5
• 1
• 3
• 6

• 1
• 2
• 7
• 5

• 8
• 0
• 0
• 1

• 0
• 4
• 5
• 4

• 0
• 3
• 8
• 0

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

• Результат

• 17, 3

• Размерность
• массива

• N=20

• Program d4;
• Const n=20;
• Var A:array [1..n] of integer;
• i, k1, k2: integer;
• Begin
• For i:=1 to n do
• Begin
• Write('A[',i,']='); Readln (A[i]);
• 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(k1:5, ‘ , ‘,k2:5);
• End.

• Исходный массив

• 10 50 50 68 74 26 32 2 5 50 -10 12 13 20 21 29 45 55 -90 -60

• Дан одномерный массив. состоящий из 10 элементов. Составить программу определения количества элементов массива, значение которых меньше заданного действительного числа t.

• 1 0.5 -1 0 6 2 0 9 8 -7

• Исходный массив

• n=10, t=5.5

• Program mas3;
• Var A: array [1..10] of real;
• i,k: integer; t: real;
• BEGIN
• Write ('Введите число t=');
• Readln (t);
• k:=0;
• For i:=1 to 10 do
• begin
• Write ('Введите значение элемента A(', i, ') = ');
• Readln (A[i]);
• If A[i]<t then k:=k+1
• end;
• Writeln ('Ответ: Количество элементов, меньших заданного числа‘,t:3:1);
• Writeln('k=', k);
• END.

• Результат

• K=7

• В данном одномерном массиве, состоящем из 8 элементов, заменить отрицательные элементы на противоположные по знаку. Элементами массива являются целые числа.

• Исходный массив

• 0 9 -8 7 -6 5 -4 3

• Изменённый массив

• 0 9 8 7 6 5 4 3

• Program mass1;
• Var A:array [1..8] of integer;
• i: integer;
• Begin
• For i:=1 to 8 do
• Begin
• Write ('A[',i,']='); Readln (A[i]);
• End;
• For i:=1 to 8 do if A[i]<0 then A[i]:=-A[i];
• For i:=1 to 8 do write (A[i]:5);
• End.

• Начало

• ввод А[1..8]

• A[i]<0

• A[i]:=-A[i]

• Конец

• да

• i:=1, 8

• нет

• вывод А[1..8]

• Найти и вывести на экран номера четных элементов в числовом массиве из 20 элементов.

• Результат

• 1 4 5 8 10 11 12 19 20

• Размерность
• массива

• N=20

• Program d3;
• Var A:array [1..20] of integer;
• i, n: integer;
• Begin
• For i:=1 to 20 do
• Begin
• Write ('A[',i,']='); Readln (A[i]);
• End;
• For i:=1 to n do if A[i] mod 2 =0 then Write(i:5);
• End.

• Исходный массив

• 10 57 51 68 74 27 31 2 5 50 100 12 13 21 21 29 45 55 100 100

• В данном одномерном массиве, состоящем из 8 элементов, заменить нулями все отрицательные элементы. Элементами массива являются целые числа.

• Исходный массив

• 0 9 -8 7 -6 5 -4 3

• Изменённый массив

• 0 9 0 7 0 5 0 3

• Program mass1;
• Var A:array [1..8] of integer;
• i: integer;
• Begin
• For i:=1 to 8 do
• Begin
• Write ('A[',i,']='); Readln (A[i]);
• End;
• For i:=1 to 8 do if A[i]<0 then A[i]:=0;
• For i:=1 to 8 do write (A[i]:5);
• End.

• Начало

• ввод А[1..8]

• A[i]<0

• A[i]:=0

• Конец

• да

• i:=1, 8

• нет

• вывод А[1..8]

• Как переставить элементы?

• Задача.
• Поменять местами содержимое двух чашек.

• Нужна 3-я чашка,
• чтобы в нее перелить содержимое первой.

• Исходный массив

• 10 1 1 6 99

• Размерность массива

• n=5

• Изменённый

• 10 99 1 6 1

• For i:=2 to n do If A[i]>=max then
• Begin
• max:=A[i]; nmax:=i;
• End;
• For i:=2 to n do If A[i]<min then
• Begin
• min:=A[i]; nmin:=i;
• End;
• A[nmin]:=max; A[nmax]:=min;
• Write ('Готовый массив: ');
• For i:=1 to n do write (A[i],'; ' );
• End.

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

• Program d3;
• Var a:array[1..100] of integer;
• nmin,nmax,min,max,n,i:integer;
• Begin
• Write ('число элементов массива =');
• Readln(n);
• For i:=1 to n do
• Begin
• Write ('A[',i,']='); Readln(A[i]);
• End;
• min:=a[1]; nmin:=1;
• max:=a[1]; nmax:=1;

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

• Исходный массив A

• 51 22 34 58 0
• 13 0 11 34 26
• 20 15 35 43 85
• 56 3 0 1 0

• Пусть размерность массива A : 5 x 5

• Program mmm2;
• Var A:array[1..5,1..5]of integer;
• B:array[1..5] of real; k, n, m, i , j: integer; s: real;
• BEGIN
• Writeln ('Введите размерность массива А');
• Readln (n,m);
• {Ввод двумерного массива А}
• For j:=1 to m do
• begin
• s:=0; k:=0; B[j]:=0;
• For i:=1 to n do
• If A[i,j] mod 2<>0 then
• begin
• s:=s+A[i,j]; k:=k+1;
• end;
• If k<>0 then B[j]:=s/k ;
• end;
• For j:=1 to m do Write (B[j]:5:1,’ ‘);
• END.

• 50 44 32 22 11

• Результат

• 32.0 9.0 23.0 22.0 48.0

• Тогда размерность массива В: 5

• Дан двумерный массив А и одномерный массив B соответствующих размерностей.
• Нечетные строки массива А заменить элементами массива B.

• Исходный массив A

• 51 22 34 58 0
• 13 0 19 34 26
• 20 15 25 33 85
• 56 3 0 0 0

• Пусть размерность массива A : 4 x 5

• Program mmm2;
• Var A:array[1..5,1..5]of integer; B:array [1..5] of integer;
• n, m, i, j: integer;
• BEGIN
• Writeln ('Введите размерность массива А');
• Readln (n,m);
• Writeln ('Введите элементы массива А');
• {Ввод двумерного массива А}
• Writeln('Введите элементы массива В');
• {Ввод одномерного массива В}
• For i:=1 to n do
• For j:=1 to m do
• If i mod 2<>0 then A[i,j]:=B[j];
• Writeln (Вывод изменённого массива');
• For i:=1 to n do
• begin
• For j:=1 to m do Write(A[i,j]:5);
• Writeln;
• end;
• END.

• Исходный массив В

• 55 44 33 22 11

• Результат

• 55 44 33 22 11
• 13 0 19 34 26
• 55 44 33 22 11
• 56 3 0 0 0

• Тогда размерность массива В: 5

• Дана прямоугольная матрица 5 на 5, элементами которой являются целые числа. Для каждого столбца подсчитать сумму элементов кратных 7 и полученные данные записать в новый массив.

• Program mm;
• Var A:array[1..5,1..5] of integer;
• B:array[1..5] of integer;
• i, j, s: integer;
• BEGIN
• {Ввод двумерного массива А }
• For j:=1 to 5 do
• begin
• s:=0; B[j]:=0;
• For i:=1 to 5 do
• If A[i,j] mod 7=0 then s:=s+A[i,j];
• B[j]:=s;
• end;
• Writeln(‘вывод результата');
• For j:=1 to 5 do WriteLn (’B[’, j , ’]=’, B[j]:4);
• END.

• Исходный массив

• 51 22 34 58 49
• 13 90 19 34 21
• 14 15 25 34 80
• 56 3 35 35 16
• 64 25 85 14 34

• Результат: массив В

• 70 0 35 49 70

• Размерность
• массива А

• 5 x 5

Сортировка массива

• метод «пузырька»

• метод выбора

• «пузырек воздуха в стакане воды
• поднимается со дна вверх»

• найти миним. элемент и поставить
• на первое место

• Сортировка – это расстановка элементов массива в заданном порядке (по возрастанию, убыванию, последней цифре, …).

• Метод пузырька

• Идея – пузырек воздуха в стакане воды поднимается со дна вверх.
• Для массивов – самый маленький («легкий» элемент перемещается вверх «всплывает»).

5

2

1

3

5

2

1

3

5

1

2

3

1

5

2

3

• Начиная снизу, сравниваем два соседних элемента; если они стоят «неправильно», меняем их местами;
• За 1 проход по массиву один элемент (самый маленький) становится на свое место;

1

5

2

3

1

5

2

3

1

2

5

3

• 1-ый проход

• 2-ой проход

• 3-ий проход

1

2

5

3

1

2

3

5

• Для сортировки массива из N элементов нужен N-1 проход (достаточно поставить на свои места N-1 элементов).

• СОРТИРОВКА МАССИВА МЕТОДОМ ПУЗЫРЬКА

• Исходный массив

• 12 10 15 3 6 9 11 7 1 5

• Результат

• Размерность массива

• n=10

• 1 3 5 6 7 9 10 11 12 15

• Program Sorti1;
• Const n=10;
• Var A:array[1..n] of integer;
• i, c, j: integer;
• BEGIN
• {Ввод массива}
• For i:=1 to n-1 do
• begin
• For j:=n-1 downto i do
• If A[j]>A[j+1] then
• begin
• c:=A[j];
• A[j]:=A[j+1];
• A[j+1]:=c;
• end;
• end;
• For i:=1 to n do Write(A[i]:4);
• END.

• СОРТИРОВКА МАССИВА МЕТОДОМ ВЫБОРА

• Исходный массив

• 12 10 15 3 6 9 11 7 1 5

• Результат

• Размерность массива

• n=10

• 1 3 5 6 7 9 10 11 12 15

• Program Sorti2;
• Const n=10;
• Var A:array[1..n] of integer; i, c, j: integer;
• BEGIN
• {Ввод массива}
• 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 i:=1 to n do Write(A[i]:4);
• END.

• Метод выбора

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

10

5

1

2

1

5

10

2

1

2

10

5

1

2

5

10