В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить дни, в которые стоимость проданных товаров превысила значение S.

vara,b,i,S:integer;x: array[1..100] of integer;beginfor i:=1 to 31 dobegin x[i]:=random(1001); write(x[i]:4); end; writeln; readln(S); writeln; for i:=1 to 31 do begin if x[i]>S then write(i:4); end; end.