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

ход решения таков:

набрать кувшин 8 л. из него отлить в кувшин 3 л. затем вылить эти 3 л. затем опять отлить из 8литрового в кувшин 3 л. оставшаяся вода в 8литровом кувшине =2 л. переливаешь в 3литровый. потом набираешь полный 8литровый. из него доливаешь воды в 3литровый, т.е. 1 л. остается 7 л.

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.