Имеется три ведра. 9лполное) 5л 3л как надо периливать воду из этих ведер чтобы получить 1литр? 4литра?

1) чтобы получить 4 литра нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра.

2)  чтобы получить 1 литр нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра. теперь нужно из девятилитрового ведра, в котором сейчас 4 литра, перелить воду в трёхлитровое ведро. т. к. в трёхлитровое ведро вместится только 3 литра, то в девятилитровом будет 1литр. в пятилитровом так и останется 5 литров.

Видимо у вас 2 условия, то есть 2 разных :   1-я : яблок не больше, чем груш  2-я : яблок не меньше, чем 20  1-я :   я< =г  г=15  ответ: плодов не более 30 (15 груш и не более 15 яблок)  2-я :   г=15  я> =20  ответ: плодов не менее, чем 35 (15 груш и не менее 20 яблок)  если это всё же одна и оба условия надо воспринимать одновременно, то:   ответ: условие некорректно, так как 2 условия противоречат друг другу, то есть не может быть одновременно яблок не больше 15 и не меньше 20.

Var   ar: array[1..10]of integer;   i, c, s: integer;   begin   s : = 0;   c : = 0;   randomize;   for i : = 1 to 10 do ar[i] : = random(-10, 10);   writeln('полученный массив: ');     for i : = 1 to 10 do write(ar[i], ' ');   writeln;   for i : = 1 to 10 do if(ar[i] < > 0) then c : = c + 1;   writeln('количество ненулевых элементов = ', c);   for i : = 1 to 10 do if(ar[i] < > 0) then s : = s + ar[i];   writeln('сумма всех его ненулевых элементов = ', s);   write('их среднее арифметическое = ',s/c); end.