Файл Microsoft Excel 2010
Как я понял, объём продаж - количество проданных машин.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
else begin
Write('Номера нечетных элементов, кратных 7: ');
aInd.Select(i->i+1).Println(',')
end
end.
<u>Пример</u>
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9
Это программа определяет минимальный элемент в массиве
Элементов всего 8
Изначально считается минимальным первый элемент т. е 3
Далее идет проверка в
Первый элемент проверяется со вторым ( 3 < 8) да один раз выполняет
ся , минимальным считается значение массива равное 3
Следующая проверка ( 3< 7) да втрой раз выполняется
Запоминается 3 и т.д .
3 будет меньше 8, 7,9, 4, 10, ( Итого пять раз)
Предпоследнее действие 3 сравнивается с 2 ( условие ложно) не выполняется( не подсчитывается)
И последний проход 3< 12 ( да, истинно) подсчитывается
Итого 6 раз