Тапочки
у меня в прихожей стоят в ряд 20 тапочек – 10 левых и 10 правых. приходя домой, я переобуваюсь и выбираю два тапочка – левый и правый, в которые мне удобнее всего засунуть ноги. естественно, что левый тапочек должен стоять левее правого, и расстояние (количество других тапочек) между ними должно быть как можно меньше. напишите программу, которая вычисляет, сколько же тапочек стоит между теми, которые мне удобнее всего надеть.
входные данные
вводится последовательность из 10 нулей и 10 единиц, записанных в некотором порядке. единица соответствует левому тапочку, 0 – правому тапочку. числа разделены пробелами.
выходные данные
программа должна вывести количество тапочек между самыми удобными тапочками, или -1, если таких нет.
Const
n=15;
Var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(2,23);
write(ar[i]:4);
sum:=sum+sqr(ar[i]);
end;
writeln;
writeln('Sum=',sum);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+ar[n];
write(ar[i]:4);
end;
end.
Пример работы программы:
First array:
19 21 10 13 7 13 9 2 22 20 10 7 17 7 22
Sum=3229
Final array:
41 43 32 35 29 35 31 24 44 42 32 29 39 29 44
Const
n=10;
Var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-50,50);
write(ar[i]:4);
sum:=sum+ar[i];
end;
writeln;
writeln('Sum=',sum);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]*5;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
24 45 28 40 -48 -7 29 43 -23 18
Sum=149
Final array:
120 225 140 200 -240 -35 145 215 -115 90