Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и в августе, которая хранится в двух массивах. Получить общую стоимость проданных фирмой товаров за два месяца.

Question

Информатика

Линка

14 сентября, 10:39

Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и в августе, которая хранится в двух массивах. Получить общую стоимость проданных фирмой товаров за два месяца.

+5

Ответы (1)

Знаете ответ на вопрос?

Евфимий · Answer 1

Var A, B, S:array[1 ... 62] of real; i, j, k:integer; n, m:real; Year, Month, Day, Wk : Word;

begin

Year:=2015; Month:=07; Day:=01;

randomize;

for j: = 1 to 2 do begin

if j = 2 then Month: = Month + 1;

for I: = 1 to 31 do begink: = k + 1;

n: = Round ((random () * 100 + 1) * 100) ;

m: = Round ((random () * 150 + 1) * 100) ;

A[k]: = n / 100;

B[k]: = m / 100;

S[k]: = A[k] + B[k]; Day: = I;

write (Day, '.', Month, '.', Year) ; writeln (' ', A[k]:8, B[k]:8, S[k]:9) ; end;

end; end.