Текст задания

Расчет величины  Т  товарного обеспечения оборота:

где  n - количество наименований товаров;

       P_i   - количество товара поставленного за отчетный период;

       K_i , H_i - остатки товара на конец и начало отчетного периода соответственно.

Описание используемых переменных

1.      n - количество наименований товаров, тип целый;

i – номер наименования товара, тип целый.

P_i   - количество товара поставленного за отчетный период. Тип целый

K_i , H_i - остатки товара на конец и начало отчетного периода соответственно. Тип целый

Блок-схема алгоритма

Исходный код программы с комментариями

Var
n,i,p,p1,k,k1,h,h1: integer; // объявление переменных
begin
Write('n='); 
Readln(n); 		//Ввод n
For i:=1 to n do
begin
Write('p[',i,']='); 
Readln(p1);		//Ввод p[i]
Write('k[',i,']=');
Readln(k1);		//Ввод k[i]
Write('h[',i,']=');
Readln(h1);		//Ввод h[i]
p:=p+p1;		//Суммирование P
k:=k+k1;		//Суммирование K
h:=h+h1;		//Суммирование H
end;
Writeln('T=',p+k-h); // Вывод результата на экран
end.