<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,-20,20); a.Println;
Writeln('Положительных ',a.Where(t->t>0).Count,
', отрицательных ',a.Where(t->t<0).Count)
end.
<u>Пример</u>
19 7 4 15 15 -16 20 6 1 7 -15 -13 3 0 -10 -17 -14 -16 12 -9 -16 -6 6 10 4 -17 -17 19 20 -12 -18 18 9 -14 -17 -11 6 4 -8 -20 -2 18 -3 -6 -6 -12 -8 -8 -11 13 -6 19 19 3 -14 4 -19 14 -10 11 -19 -19 6 -8 4 -13 -2 -4 -3 -19 -2 3 12 11 14 -13 18 -9 -4 -4 12 11 9 -14 14 -17 20 -15 20 -1 -12 13 -7 1 20 -4 -9 -16 10 -13
Положительных 45, отрицательных 54
В Excel удобно строить, сам считает :)
250-279-290-319-330-359-370-399-410
<span>int n = in.nextInt()<span>;
</span>int[] a = new int[n]<span>;
</span>a[0] = in.nextInt()<span>;
</span>int min = a[0]<span>;
</span>int minS = min<span>;
</span>for (int i = 1; i < n; i++) {
a[i] = in.nextInt()<span>;
</span> if (a[i] < min) min = a[i]<span>;
</span>}
for (int i = 1; i < n; i++) {
if (a[i] < minS && a[i] != min) minS = a[i]<span>;
</span>}
System.out.println(min + " " + minS)<span>;
На всякий случай объясню еще так.
Изначально двум минимумам мы присваиваем значение первого элемента.
В первом цикле ты ищешь первый минимум, тут всё понятно: со второго элемента массива, если элемент меньше минимума, то минимуму присваиваем значение элемента.
Во втором цикле мы ищем второй минимум: всё то же самое, только добавляется ещё одно условие: элемент должен быть не равен первому минимуму.
Вот, впринципе, и всё</span></span>
Все.
Предположим, что он идёт от левого верхнего угла.
1) Проходя первый мост в правый верхний угол он его разводит.
2) Второй мост в правый нижний угол он не разводит.
3) Третий мост из правого нижнего угла в центр он разводит.
4) Четвёртый мост в левый верхний угол он разводит.
5) Пятый мост в левый нижний угол он разводит
6) Шестой мост из левого нижнего угла в центр он разводит.
7) Седьмой мост в правый верхний угол он разводит
8) Восьмой мост в правый нижний угол он разводит
9) Девятый мост в левый нижний угол он разводит
Все мосты разведены, рабочий на левом нижнем острове.