0) Начало
1) Ввод массива B(n) //n - количество элементов массива
2) Объявляем пустой массив C(n)
3) k = 1
4) Цикл по i от 1 до n
4.1) Если условие А истинно, то
4.1.1) C(k) = i // Выносим номер элемента в новый массив
4.1.2) k = k+1 // Переходим к следующему элементу в массиве С.
4.1.3) Конец Если
4.2) Конец Цикла
5) Вывод сформированного массива C(k)
6) Конец
<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
Ответ 4510
s=0
for i in 15..25
s+= i**2
end
p s
<span>что вечно тормозит и тупит?</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>