
Разбор заданий ЕГЭ Часть2 Задание 25 (С2)
Учитель информатики
МБОУ «Марсовская СОШ»
Калимуллин И.Р.

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

Пары элементов массива
10
100
201
0
1
202
27
52
23
15
253
![Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых десятичная запись хотя бы одного числа оканчивается на 5. k:=0; for i := 1 to N-1 do If (a[i] mod 10 =5) or (a[i+1] mod 10 =5) then k:=k+1; Writeln (k); const N = 40; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); ... end.](https://fsd.videouroki.net/html/2018/10/26/v_5bd2797c013a4/img3.jpg)
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые
значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из
языков программирования алгоритм, позволяющий найти и вывести количество пар
элементов массива, в которых десятичная запись хотя бы одного числа оканчивается на 5.
k:=0;
for i := 1 to N-1 do
If (a[i] mod 10 =5) or (a[i+1] mod 10 =5)
then k:=k+1;
Writeln (k);
const N = 40;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.

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

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать
целые значения от 0 до 10 000 включительно. Опишите на естественном языке или
на одном из языков программирования алгоритм, позволяющий найти и вывести
минимальное значение среди трёхзначных элементов массива, делящихся на 7.
Если в исходном массиве нет элемента, значение которого является трёхзначным
числом и при этом кратно семи, то выведите сообщение «Не найдено».
const N = 30;
var a: array [1..N] of integer ;
i, j, min: integer ;
begin
for i := 1 to N do readln (a[i]);
...
end .
min := 10000;
for i := 1 to N do
if (a[i]=100) and (a[i]and (a[i] mod 7 = 0) and (a[i]then
min := a[i];
if min then
writeln (min)
else writeln ('Не найдено');
![Практическое задание Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых десятичная запись хотя бы одного числа оканчивается на 5. const N = 40; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); ... end.](https://fsd.videouroki.net/html/2018/10/26/v_5bd2797c013a4/img6.jpg)
Практическое задание
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые
значения от 0 до 10000 включительно. Опишите на естественном языке или на одном из
языков программирования алгоритм, позволяющий найти и вывести количество пар
элементов массива, в которых десятичная запись хотя бы одного числа оканчивается на 5.
const N = 40;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.
![k:=0; for i := 1 to N-1 do If (a[i] mod 10 =5) or (a[i+1] mod 10 =5) then k:=k+1; Writeln (k);](https://fsd.videouroki.net/html/2018/10/26/v_5bd2797c013a4/img7.jpg)
k:=0;
for i := 1 to N-1 do
If (a[i] mod 10 =5) or (a[i+1] mod 10 =5)
then k:=k+1;
Writeln (k);