СРСП Алгоритмы и ПРОГРАМИРОВАНИЕ
1) Условие задачи
2) введеные обозначения
3)Алгоритм решения задачи в виде блок схемы
4) Программа на языке Pascal в Worde

ЗАДАЧА 4,29
В объединении 15 магазинов, для каждого из которых известны суммы остатков товаров на конец периода (в тыс.руб)
Требуется найти
а) общую сумму остатков по 15 магазинам
б)удельный вес (в процентах) остатков каждого магазина в общей сумме остатков
в)количество магазинов, удельный вес остатков которых превышает 12%

const  n=15;var  s:array[1..n] of real;  st,p:real;  i,k:integer;begin  Writeln('Введите ',n,' сумм остатков');  st:=0;  for i:=1 to n do  begin Read(s[i]); st:=st+s[i] end;  Writeln('Удельные веса остатков по магазинам');  k:=0;  for i:=1 to 15 do  begin    p:=s[i]/st*100;    Writeln(i,' - ',p:0:1);    if p>12 then Inc(k)  end;  Write('Количество магазинов с уд. весом остатков >12%, равно ');  Writeln(k)end.Тестовое решение:Введите 15 сумм остатков0.37 1.5 2.11 3.4 9.3 2.89 4 0.85 0 0.73 4.2 5.05 3.5 2.18 0.94Удельные веса остатков по магазинам1 - 0.92 - 3.73 - 5.14 - 8.35 - 22.76 - 7.07 - 9.88 - 2.19 - 0.010 - 1.811 - 10.212 - 12.313 - 8.514 - 5.315 - 2.3Количество магазинов с уд. весом остатков >12%, равно 2Полное решение по заданию находится в файле формата MS Word-2003