Видеоурок №3 в 9 классе по теме "Поиск максимального элемента в массиве".

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

УМК К.Ю.Поляков, Е.А.Еремин

Задание:

Какой элемент в массиве встречается раньше - максимальный или минимальный?

Видеоурок № 3(массивы) в 9 классе

Гаврюкова Г.А. школа № 68 Рязань 2021

Повторение

Чётные элементы массива

начало

Ввод/Вывод A[6]

переменная-счётчик

count:=0

for i:=1 to 6 do

Критерий четности числа

A[i] mod 2 = 0

да

count:= count+1

Вывод A[i]

Вывод count

конец

Повторение

Чётные элементы массива

program count1;

const N = 6 ;

var A: array [ 1. .N] of integer ;

i,count: integer ;

begin

writeln ( 'Элементы Вашего массива:' );

for i:= 1 to N do

begin

A[i]:= random( 9 );

writeln( ' A[' ,i, ']=' ,A[i] );

end ;

writeln ( ' Чётные элементы' );

count:= 0 ;

for i:= 1 to N do

if A[i] mod 2 = 0 then

begin

count:= count+ 1 ;

write ( ' A[' ,i, ']=' ,A[i] );

end ;

writeln ( ' количество чётных= ' , count );

end .

Элементы Вашего массива:

A[1]=0

A[2]=8

A[3]=3

A[4]=1

A[5]=5

A[6]=7

Чётные элементы

A[1]=0 A[2]=8

количество чётных= 2

9 ) and (A[i] then begin count:= count+ 1 ; write ( ' A[' ,i, ']=' ,A[i] ); end ; writeln(); writeln ( ' количество двузначных= ' , count ); end . Программа заполняет массив из 20 элементов случайными числами на отрезке [0; 200] и считает число двузначных чисел " width="640"

2

Разбор задачи №1

program count_dvuzn;

const N = 20 ;

var A: array [ 1. .N] of integer ;

i,count: integer ;

begin

writeln ( 'Элементы Вашего массива:' );

for i:= 1 to N do

begin

A[i]:= random( 200 );

writeln( ' A[' ,i, ']=' ,A[i] );

end ;

writeln ( ' Двузначные элементы' );

count:= 0 ;

for i:= 1 to N do

if (A[i] 9 ) and (A[i] then

begin

count:= count+ 1 ;

write ( ' A[' ,i, ']=' ,A[i] );

end ;

writeln();

writeln ( ' количество двузначных= ' , count );

end .

Программа заполняет массив

из 20 элементов случайными

числами на отрезке [0; 200]

и считает число двузначных чисел

9 ) and (A[i] then begin count:= count+ 1 ; write ( ' A[' ,i, ']=' ,A[i] ); end ; Двузначные элементы A[3]=60 A[4]=88 A[7]=69 A[8]=60 A[10]=17 A[12]=34 A[13]=35 A[17]=53 количество двузначных= 8 " width="640"

2

Результат работы программы №1

Элементы Вашего массива:

A[1]=154

A[2]=130

A[3]=60

A[4]=88

A[5]=120

A[6]=139

A[7]=69

A[8]=60

A[9]=171

A[10]=17

A[11]=109

A[12]=34

A[13]=35

A[14]=157

A[15]=115

A[16]=125

A[17]=53

A[18]=120

A[19]=105

A[20]=134

Подсчет количества двузначных чисел

for i:= 1 to N do

if (A[i] 9 ) and (A[i] then

begin

count:= count+ 1 ;

write ( ' A[' ,i, ']=' ,A[i] );

end ;

Двузначные элементы

A[3]=60 A[4]=88 A[7]=69 A[8]=60 A[10]=17 A[12]=34 A[13]=35 A[17]=53

количество двузначных= 8

= 100 )) do i:= i + 1 ; if i then write( ' Двузначные есть, первое двузначное A[' , i, ']=' , A[i]) else write( 'Не нашли!' ); end . Программа, заполняет массив из 10 элементов случайными числами на отрезке [0; 14] и определяет есть ли там двузначные числа " width="640"

2

Разбор задачи №2

program poisk_dvuzn;

const N = 10 ;

var A: array [ 1. .N] of integer ;

i, X: integer ;

begin

writeln ( 'Элементы массива:' );

for i:= 1 to N do begin

A[i]:=random( 15 );

write( ' A[' , i, ']=' , A[i])

end ;

writeln ( );

i:= 1 ;

while (i and ((A[i] or (A[i]= 100 )) do

i:= i + 1 ;

if i then

write( ' Двузначные есть, первое двузначное A[' , i, ']=' , A[i])

else write( 'Не нашли!' );

end .

Программа, заполняет

массив из 10 элементов

случайными числами

на отрезке [0; 14]

и определяет есть ли там

двузначные числа

= 100 )) do i:= i + 1 ; if i then write( ' Двузначные есть, первое двузначное A[' , i, ']=' , A[i]) else write( 'Не нашли!' ); end . Элементы массива: A[1]=1 A[2]=9 A[3]=0 A[4]=1 A[5]=1 A[6]=12 A[7]=4 A[8]=6 A[9]=3 A[10]=13 Двузначные есть, первое двузначное A[6]=12 Элементы массива: A[1]=3 A[2]=3 A[3]=3 A[4]=2 A[5]=2 A[6]=5 A[7]=5 A[8]=0 A[9]=5 A[10]=5 Не нашли! " width="640"

2

Результат работы программы №2

Определяет есть ли там

двузначные числа

i:= 1 ;

while (i and ((A[i] or (A[i]= 100 )) do

i:= i + 1 ;

if i then

write( ' Двузначные есть, первое двузначное A[' , i, ']=' , A[i])

else write( 'Не нашли!' );

end .

Элементы массива:

A[1]=1 A[2]=9 A[3]=0 A[4]=1 A[5]=1 A[6]=12 A[7]=4 A[8]=6 A[9]=3 A[10]=13

Двузначные есть, первое двузначное A[6]=12

Элементы массива:

A[1]=3 A[2]=3 A[3]=3 A[4]=2 A[5]=2 A[6]=5 A[7]=5 A[8]=0 A[9]=5 A[10]=5

Не нашли!

2

Разбор задачи №3

program count_sosedn;

const N = 11 ;

var A: array [ 1. .N] of integer ;

i,count: integer ;

begin

writeln ( 'Элементы Вашего массива:' );

for i:= 1 to N do

begin

A[i]:= random( 91 )+ 10 ;

writeln( ' A[' ,i, ']=' ,A[i] );

end ;

writeln ( ' Пары соседних элементов, сумма которых делится на 3' );

count:= 0 ;

for i:= 1 to N- 1 do

if (A[i] + A[i+ 1 ]) mod 3 = 0 then

begin

count:= count+ 1 ;

writeln ( ' A[' ,i, ']=' ,A[i], ' A[' ,i+ 1 , ']=' ,A[i+ 1 ]);

end ;

writeln();

writeln ( ' количество таких пар= ' , count );

end .

Программа заполняет массив

из 11 элементов случайными

числами на отрезке [10; 100]

и считает число пар соседних

элементов, сумма которых

делится на 3

2

Результат работы программы №3

Элементы Вашего массива:

A[1]=68

A[2]=93

A[3]=80

A[4]=19

A[5]=86

A[6]=46

A[7]=97

A[8]=56

A[9]=54

A[10]=16

A[11]=11

Пары соседних элементов, сумма которых делится на 3

A[3]=80 A[4]=19

A[4]=19 A[5]=86

A[5]=86 A[6]=46

A[7]=97 A[8]=56

A[10]=16 A[11]=11

количество таких пар= 5

Считает число пар

соседних элементов,

сумма которых

делится на 3

A[nMax] да A[nMax]:=A[i]; nMax:= i; Вывод A[nMax] конец 2 " width="640"

начало

Максимальный

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

и его номер

Ввод/Вывод A[7]

nMax:= 1;

A[nMax]:= A[1];

Подготовка цикла

A[1]= 6

A[2]=31

A[3]= 8

A[4]=19

A[5]=87

A[6]=-6

A[7]=15

for i:=2 to 7 do

Поиск максимума

A[i] A[nMax]

да

A[nMax]:=A[i];

nMax:= i;

Вывод A[nMax]

конец

2

A[nMax] then begin A[nMax]:=A[i]; nMax:= i; end ; write( 'Ответ: максимум A[' ,nMax, ']=' ,A[nMax]) end . Результат работы программы A[1]=3 A[2]=2 A[3]=8 A[4]=4 A[5]=5 A[6]=1 A[7]=8 Ответ: максимум A[3]=8 " width="640"

Поиск максимума и его индекса

program arrMax1;

const N = 7 ;

var A: array [ 1. .N] of integer ;

i, nMax: integer ;

begin

writeln ( 'Введите элементы массива:' );

for i:= 1 to N do read ( A[i] );

for i:= 1 to N do write( ' A[' ,i, ']=' ,A[i] );

writeln();

nMax:= 1 ;

A[nMax]:= A[ 1 ];

for i:= 2 to N do

if A[i] A[nMax] then

begin

A[nMax]:=A[i];

nMax:= i;

end ;

write( 'Ответ: максимум A[' ,nMax, ']=' ,A[nMax])

end .

Результат работы программы

A[1]=3

A[2]=2

A[3]=8

A[4]=4

A[5]=5

A[6]=1

A[7]=8

Ответ: максимум A[3]=8

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

УМК К.Ю.Поляков, Е.А.Еремин

Задание:

Какой элемент в массиве встречается раньше - максимальный или минимальный?

Видеоурок № 3(массивы) в 9 классе

Гаврюкова Г.А. школа № 68 Рязань 2021