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

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.

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

 

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.