Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

СРСП Алгоритмы и ПРОГРАМИРОВАНИЕ
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.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