Назад   Задать вопрос
Информатика
ВУЗ
5 отметок
+ В закладки
03.11.2014, 06:11

По 18 видам продукции даны объемы (в тыс.руб) вывоза каждого вида из Казахстана. Требуется найти: А) суммарный объем вывоза; Б) количество видом продукции, вывоз которого превышает 100 тыс.руб; В)долю каждого вывоза( в процентах) в общем объеме вывоза продукции;

Комментарии (0)

Решить задание

Добавить ответ, могут только Зарегистрированные или Авторизированные пользователи.

Ответы и решения


22.11.2014, 22:46
var n,i,s,k: longint;
    a: array [1..100] of longint;
 
    r: real;
    begin
     for i:=1 to 18 do read(a[i]);
     for i:=1 to 18 do
      begin
       s:=s+a[i];
       if a[i]>100 then k:=k+1;
      end;
      writeln('Суммарный объём вывоза: ',s);
      writeln('Кол-во продукции, вывоз которой превышает 100 тыс.руб: ',k);
     for i:=1 to 18 do
      begin
       r:=0;
       r:=(a[i]*100)/s;
       writeln(i,'. ',r:1:2,'%');
      end;
    end.

Оценка: 2.0 (голосов: 1)

Комментарии (0)