Вычисление параметра вектора
Вычислить сумму положительных элементов третьей четверти массива
| |
Алгоритм функции sum
n,f[i..n]
нет
да
sum
Таблица переменных
Имя
| Тип
| Назначение
| Параметр
| n
|
целый
| размерность
| формальный
| f[1..n]
| вектор
| i
| параметр цикла
| локальный
| s
| вспомогательное
| sum
| имя функции
|
| function sum(n:integer;f:vect):integer;
var i,s:integer;
begin
s:=0;
for i:=round(n/2)+1 to round(3*n/4) do if f[i] > 0 then s:=s+f[i];
sum:=s;
end;{sum}
Не нашли, что искали? Воспользуйтесь поиском:
|