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

Question

Информатика

Витюха

1 февраля, 13:47

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

+4

Ответы (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.