Слайд 2
![10 20 50 25 45 10 40 0 С клавиатуры](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-1.jpg)
10
20
50
25
45
10
40
0
С клавиатуры вводятся последовательность целых чисел.
Число 0 – окончание ввода.
Слева –
пример такой последовательности.
Слайд 3
![10 20 50 25 45 10 40 0 Найти максимальное](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-2.jpg)
10
20
50
25
45
10
40
0
Найти максимальное из введенных чисел и его порядковый номер в последовательности.
Как
можно просто, но эпично ошибиться?
Слайд 4
![10 20 50 25 45 10 40 0 Найти второй](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-3.jpg)
10
20
50
25
45
10
40
0
Найти второй по значению максимум в последовательности.
Найти его порядковый номер.
Слайд 5
![10 20 50 25 45 10 40 0 readln (x);](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-4.jpg)
10
20
50
25
45
10
40
0
readln (x);
max:=x; max2:=x;
while x<>0 do
begin
if x>max
then
begin
max2:=max;
max:=x;
end
else
if x>max2 then max2:=x;
Readln (x)
end;
Слайд 6
![10 20 50 25 45 10 40 0 Найти третий](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-5.jpg)
10
20
50
25
45
10
40
0
Найти третий по значению максимум в последовательности.
Найти его порядковый номер.
Слайд 7
![10 20 50 25 45 10 40 0 Найти N](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-6.jpg)
10
20
50
25
45
10
40
0
Найти N максимальных по значению элементов последовательности.
Найти их порядковые номеры.
Слайд 8
![10 20 50 25 45 10 40 0 readln (x);](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-7.jpg)
10
20
50
25
45
10
40
0
readln (x);
… //инициализация массива М?
while x<>0 do
begin
i:=1;;
while (i<=N) do
begin
if x>M[i] then break;
i:=i+1;
end;
if i<=N then begin
for var j:=N downto i+1 do
M[j]:=M[j-1];
m[i]:=x;
end;
readln(x);
end;
Слайд 9
![10 20 50 25 45 10 40 0 Найти наибольшую сумму двух чисел последовательности.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-8.jpg)
10
20
50
25
45
10
40
0
Найти наибольшую сумму двух чисел последовательности.
Слайд 10
![10 20 50 25 45 10 40 0 Найти сумму двух наибольших четных чисел в последовательности.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-9.jpg)
10
20
50
25
45
10
40
0
Найти сумму двух наибольших четных чисел в последовательности.
Слайд 11
![10 20 50 25 45 10 40 0 Найти наибольшее](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-10.jpg)
10
20
50
25
45
10
40
0
Найти наибольшее число R, для которого одновременно выполняются следующие условия:
R-четное;
R-сумма двух
чисел последовательности.
Слайд 12
![10 20 50 25 45 10 40 0 Найти наибольшую](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-11.jpg)
10
20
50
25
45
10
40
0
Найти наибольшую сумму двух чисел, которые «находятся» друг от друга в
последовательности не менее чем через два числа подряд.
Слайд 13
![10 20 50 25 45 10 40 0 readln (x3,](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-12.jpg)
10
20
50
25
45
10
40
0
readln (x3, x2,x1,x);
…//инициализация мах
while x<>0 do
begin
if
x3>Max3 then
Max3 := x3;
if x+Max3>Max then
Max:=x+Max3;
x3:=x2; x2:=x1; x1:=x;
readln(x);
end;
Слайд 14
![10 20 50 25 45 10 40 0 Найти наибольшую](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/212231/slide-13.jpg)
10
20
50
25
45
10
40
0
Найти наибольшую сумму двух чисел, которые «находятся» друг от друга в
последовательности не менее чем через N числел подряд.