Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
Ответ:
Файл и скрин во вложениях
Объяснение:
Для заданного условия изначально есть 1 рыба. через 10 лет из может быть около 2000 при условии что k близка к 2.
Но, обратите внимание на 2 график, с прогнозом на 18 лет, после 8 лет количество рыбы в пруду, уже не будет расти, а будет колебаться в одном интервале (год спада-год прироста)
Что за язык?
ну создаешь переменную (допустим min), в неё заносишь значение первого элемента (элемента номер 0),
создаешь цикл и перебираешь со второго элемента (номер 1) до конца массива,
в ходе перебора сравниваешь значение каждого элемента массива с переменной (min), если значение элемента меньше, то присваиваешь переменной (min) значение текущего элемента в цикле...
+ Если нужно ещё найти порядковый номер наименьшего элемента в массиве, можно параллельно вести другую переменную (minnum) например, и каждый раз когда находится элемент меньший чем min присваивать minnum - номер текущего элемента в цикле
7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55