Question

Срсп алгоритмы и програмирование 1) условие 2) введеные обозначения 3)алгоритм решения в виде блок схемы 4) программа на языке pascal в worde 4,29 в объединении 15 магазинов, для каждого из которых известны суммы остатков товаров на конец периода (в тыс.руб) требуется найти а) общую сумму остатков по 15 магазинам б)удельный вес (в процентах) остатков каждого магазина в общей сумме остатков в)количество магазинов, удельный вес остатков которых превышает 12%

Answer 1

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.9
2 - 3.7
3 - 5.1
4 - 8.3
5 - 22.7
6 - 7.0
7 - 9.8
8 - 2.1
9 - 0.0
10 - 1.8
11 - 10.2
12 - 12.3
13 - 8.5
14 - 5.3
15 - 2.3
Количество магазинов с уд. весом остатков >12%, равно 2

Полное решение по заданию находится в файле формата MS Word-2003