Фирме принадлежат два магазина. известна стоимость товаров, проданных в каждом магазине за каждый день в июле и в августе, которая хранится в двух массивах. получить общую стоимость проданных фирмой товаров за два месяца.
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.
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.