Юра первое место
Боря второе место
Коля третье
Вова четвёртое место
А) Пенал, тетрадь, учебник.
Б) Папка "Службы", Папка "Игры", Корзина.
В) Диск, Флеш-карта, дискета.
Г) Растения, животные, клетки.
Д) Уравнения, числа, примеры.
Е) Карты, масштабы, мореплаватели.
Ж)Алгоритмы, схемы, данные.
Под локальным максимумом, скорее всего, имеется в виду число, большее
чем оба его соседа, за исключением случая, когда соседом справа является
0. В таком случае достаточно однократно пройтись по всем числам, запоминая минимальное из расстояний между новым и предыдущим обнаруженными максимумами.
Программа (язык Pascal ABC.Net)
var i1,i2,i3:integer;
i:integer;
curr,minr,lastmax:integer;
begin
readln(i1,i2);
i:=2;
minr:=1000000;
repeat
readln(i3);
if (i2>i1) and (i2>i3) and (i3<>0) then begin
curr:=i-lastmax;
if curr<minr then minr:=curr;
lastmax:=i;
end;
i1:=i2;
i2:=i3;
i+=1;
until i2=0;
if minr=1000000 then writeln(0) else writeln(minr); {стоило бы добавить булевую переменную в качестве флага - был ли хоть один max, но вряд ли расстояние между ними превысит миллион :-}
end.
Дано:
N=101 (т.к. от 0 до 100 включительно)
K=8192
решение:
N=101 => 128=2^7 (в 7 степени), отсюда i=7бит
I=K*i=8192*7=57344 бит или = 2^13*7 бит=7кб
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333