Склавиатуры вводится n целых чисел, несколько положительный и несколько отрицательных, найти сумму положительных. (паскаль) написать программу.

Var i,n,a,sum:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then
sum:=sum+a
end;
writeln(sum)
end.

В экономике деньги выполняют функции средства обращения, платежа, накопления, измерения стоимости. 
Экономическая сущность денег проявляется в их функциях: 

а) как меры стоимости - измерение стоимости всех товаров и учет затрат общественно необходимого труда на их производство и реализацию; 

б) средство обращения - посредством денег осуществляется купля-продажа товаров (работ, услуг) ; 

в) средство платежа - при продаже товаров и их сбережении; 

г) средство образования сокровищ и накоплений - при изъятии денег из обращения; 

д) мировые деньги - слитки золота, кредитные деньги в национальных валютах и международные валютные средства. 

Из функции меры стоимости денег вытекает техническая функция денег как установление масштаба цен. 

Функцию средства обращения деньги выполняют в процессе обмена (обращения) на товарных рынках. Обращение денег отделило реальное содержание металлической монеты от ее номинального содержания, это позволило вместо металлической монеты (из золота и серебра) выпустить в обращение бумажные деньги в качестве заменителей металлических денег. В функции средства обращения деньги нужны лишь для покупки товаров, а этого достаточно, чтобы бумажные деньги приобретали общественную значимость. 

Функция образования сокровища вытекает из функции денег как средства обращения: уходя из сферы обращения, неиспользованные деньги накапливаются в форме сокровища. Эту функцию обычно выполняют реальное золото или предметы роскоши, изготовленные из золота, серебра, платины и других драгоценных металлов, и бумажные деньги, устойчивая валюта. 

Из стадии товарного обращения возникает такая функция денег, как средство платежа - при реализации товаров в кредит, с наступлением срока оплаты должник уплачивает кредитору стоимость полученного товара. Из данной функции денег возникает долговое обязательство - вексель, который является одним из видов ценных бумаг. 

Выход товарного обмена на мировой рынок - условие появления такой функции денег, как мировые деньги. В мировом обороте деньги играют роль всеобщего средства платежа и всеобщего покупательного средства. В роли мировых денег выступают кредитные деньги в свободно конвертируемых валютах и международные платежные средства. 

В хозяйстве, основанном на натуральном обмене, не действует ни одна из указанных функций.

1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.