Дан одномерный массив целых чисел.. колличество чисел и их значения вводятся с клавиатуры . индексация элементов массива начинается с единицы. определить произведение элементов массива, которые являются отрицательными четными числами. если аких чисел нет, то вывести на экран нуль

var a: array[1..100]of integer; i,s,n: integer; c: boolean; beginreadln(n); for i: =1 to n do readln(a[i]); s: =1; for i: =1 to n doif (a[i]< 0)and(a[i] mod 2=0) then begin s: =s*a[i]; c: =true; end;

if c then writeln(s) else writeln(0);

end.

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw