Производственная единица изготавливает изделия трех видов: п1, п2 и пз. затраты на изготовление единицы - id776184320230514 от bubisolha1 14.05.2023 00:51

Question

Информатика: Производственная единица изготавливает изделия трех видов: п1, п2 и пз. затраты на изготовление единицы продукции п1, п2 и п3 составляют 7, 15 и 10 ($) соответственно. прибыль от реализации одного изделия данного вида соответственно равна 20, 16 и 25 ($). план производства изделий п1—200482 шт., п2—43292 шт., пз—1463012 шт. в январе было изготовлено п1— 135672 шт., п2— 60712 шт., пз— 1456732 шт. требуется: а) при электронной таблицы рассчитать в долларах (курс доллара – величина изменяющаяся): 

bubisolha1 · Accepted Answer

Program z1;
Var i,n,a,b,c:integer;
m: array [1..1000] of integer;
Begin
write('Введите кол-во чисел - ');
readln(n);
randomize;
a:=0; b:=0; c:=0;
for i:=1 to n do
begin
m[i]:=random(100)-50;
write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.

MOGZ ответил